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1-0 INTRODUCTION 



LIFE (Library File Entry) is a data storage and retrieval program de- 
signed to characterize and store data acquired with the PDP-12 Signal 
Processing Programs. Prominent features of the spectrum are located 
using an interactive display and then characterized and stored on LINC- 
tape or disk (RK8 or RF08) as an independent entry in a LIFE "library" 
of spectra data. An unknown sample can then be identified by comparing 
its spectrum with spectra of known library samples (fingerprinting) for 
that instrument. 

2.0 HARDWARE REQUIREMENTS 

The minimum configuration for using LIFE is: 
PDP-12A computer with 8K of core memory 

The program does not require, but will support, an RK8 or RF08 disk. 
3.0 INITIAL STARTING PROCEDURE 

LIFE runs under and must be loaded via LAP 6- DIAL- MS using the command 
LO LIFE,n^ 

where n is the unit containing LIFE. DIAL-MS must be on logical unit 0, 
regardless of the value of n. 

4.0 OPERATING PROCEDURES 

4.1 Initialization 

LIFE indicates that it has been successfully loaded into the computer 
by displaying the following message: 

Message 1 

LIFE IS CREATED 
LIFE UNIT ~ 



Hereafter referred to as DIAL-MS. 
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The tape/disk unit which contains the LIFE library must be defined by 
typing a one or two digit number followed by line feed on the tele- 
printer. Any of the DIAL-MS device unit numbers are applicable (refer 
to the LAP6-DIAL Programmer's Reference Manual, DEC-12-SE2D-D) . (All 
scope messages are presented using the QANDA subroutine, DEC-12-FISA-D. 
It is assumed that the user is familiar with the conventions of QANDA. 
Briefly, they are: 1. The last reply to a scope message is terminated 
by pressing line feed. 2. Replies other than the last one to any 
scope message are terminated by pressing carriage return.) 

At this time, the LIFE library unit must be on-line to the PDP-12 and 
its WRITE feature must be enabled. If it is not, the program will wait 

until either the I/O PRESET key is pressed, in which case the LIFE pro- 
gram may be reloaded, or until the above conditions are satisfied, Tne 
program then interrogates the defined LIFE tape/disk and displays the 
following message if the tape/disk has never been initialized by the 
LIFE program: 

Message 2 

NOT LIFE TAPE 
INITIALIZE? Y OR N:_ 

Entering a Y and pressing line feed will cause the tape/disk on the 
defined unit to be initialized. 

Typing an N and line feed will cause message 1 to be displayed and no 
initialization will take place. 

If the tape/disk was initialized, all other characters are ignored, or 
if a Y was entered in response to message 2, the following message is 
displayed: 

Message 3 

FUNCTIONS : 

1. GENERATE NEW SPECTRUM 

2. PRINT 

3. ERASE 

4. CALL DIAL 

CHOICE 

The four major modes of operation are defined in the above message. 
The user indicates his choice by entering the number (1-4) associated 
with the chosen mode. 
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CTRL/R may be typed in response to any subsequent display, causing an 
immediate return to message 3. 

4,2 Choice 1 - GENKRATE NEW SPECTRUM 

A spectrum which is stored on tape/disk can be displayed using choice 
1. A definitive set of parameters can then be entered to the LIFE 
library tape/disk or the LIFE library tape/disk may be searched for 
those previously stored spectra which have similar characteristics. 

4.2.1 Instrument Definition 

The following message is displayed -after choice 1 is specified: 
Message 4 

INSTRUMENT NAME 

All entries to the LIFE library tape/disk are classified by the instru- 
ment from which the sample was taken. Up to 67 different instrument 
names may be defined; each name may be up to four alphanumeric charac- 
ters in length. 

Once the instrument name for the data has been defined , LIFE interro- 
gates its library tape for a match. If no match is found (i.e., this 
is the first entry under the particular instrument name) the following 
message is displayed. 

Message 5 

NEW INSTRUMENT 
ACCEPT? Y OR N:_ 

TYPE 

1 IF X ONLY 

2 IF X AND Y 

To add a new instrument class to the library tape, type Y and press 
RETURN. The method by which the spectrum data stored under this instru- 
ment class must be defined consists of two choices , 1 for X only or 2 
for X and Y. X is the position in the file (nth point) and Y is the 
magnitude (value of the nth point) . Therefore , if a new instrument 
class is to be entered, first type Y, then type 1 or 2 (describing the 
number of parameters) and line feed. 



If a new instrument class is not to be opened (e.g., a typographical 
error occurred) , type N and line feed; LIFE will return to message 4. 

4.2.2 Spectrum Definition 

In either case, once the instriiment name has been defined, the following 
message is displayed: 

Message 6 

UNIT NAME 

SPECTRUM NAME 



The name assigned to the tape/disk on which the raw data is stored is 
entered in the first line followed by pressing return. This name can 
be one to four alphanumeric characters. (NOTE: It is suggested that 
each tape or disk be labeled or numbered and that this name or number 
be entered in response to line 1 of message 6.) 

The spectrum name is then requested by the LIFE program. This name may 
be up to 16 alphanumeric characters in length and must be entered in 
two groups of up to eight characters each. The first group is terminated 
by a carriage return or line feed. The second is terminated by a line 
feed. For example. 



SPECTRUM NAME SODIUM C 
ARBONATE 

or 

SPECTRUM NAME STYRENE 
The location of the defined spectrum is specified next. 
Message 7 

UNIT NUMBER 

START BLOCK 

PTS IN SPECTRUM 
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The UNIT NUMBER may be ^-1 , defining one of eight tape drives, or 1^-11 , 
defining one of eight logical disk units. The defined unit must be 
on-line to the PDP-12 at this time. If it is not, the program will 
wait until the above condition is satisfied. 

START BLOCK is a one to three digit octal number defining the 

starting block of the raw data. 

PTS IN SPECTRUM defines the number of points in the spectrum and is a 
decimal number in the range 513 to 2040. 

The location of the spectrum is now completely defined and LIFE displays 

it on the scope. The user may control the position of the display with 
A/D knob 0. A clockwise motion of knob 0 moves the display window to 
the right; a counter-clockwise motion moves the display window to the 
left. The farther the knob is rotated from the mid-point position, the 
faster the window moves. The display is made stationary by leaving knob 
0 in a middle position between its two extreme positions. 




It should be noted that the display window wraps around either end of 
the file, that is, PTj3 and PTn are assumed to be adjacent. 

There is also a cursor which is fixed to the curve. A/D knob 1 can be 
moved clockwise to move the cursor to the right or counterclockwise to 
move it to the left. 
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When knob 1 is turned to its furthermost clockwise (counter-clockwise) 
position, the cursor sits upon the rightmost (leftmost) scope point. 

Associated with the cursor are four octal words displayed in the top 
left corner of the scope. The first word will always be zero. The 
second word is the actual core address of the cursor point. Its range 
is from 2000 (representing the first point of the file) to 5770. For 
example, if the defined file contains 1001 octal points {513 decimal), 
this word will range from 2000 to 3000, where 2000 represents the first 
point of the file and 3000 the 513th point of the file. The third word 
is the octal equivalent of the contents of the cursor point (i.e., the 
actual 12 bit value in the data buffer of the data word which corresponds 
to the cursor point) and is in the range 0 to 1000 ^ (top to bottom) , 

o 

where the center value is 400^, The fourth word is relative to the third 
word and reflects the Y offset and Y scale and is of no interest to 
the LIFE user. 

4.2.3 Commands 

Once the display appears, the Teletype becomes active and the user may 
enter a number of commands . These command operations are performed immedi"-- 
ately ; no terminating character is required. They are : 

- (halve display size ) 

The command dash (-) divides each data point by 2 before it is displayed. 
The actual data is untouched, but the peak heights seen on the scope are 
smaller. 

The dash may be typed repeatedly up to three times (division by 8) . It 
should be noted that the display window returns to the beginning of the 
file each time dash is typed. The function of the halve command is to 
enable 12-bit unsigned (feta (not gathered through the PDP-12 Signal Pro- 
cessing System perhaps) to be processed. 

+ (double display size ) 

Typing a plus sign (via the ; key and the SHIFT key) multiplies the 
value of the displayed points by 2 each time the key is struck. It may 
only be used after a dash (the initial display is the largest representa- 
tion of the data available) . Doubling the display size only changes the 
spectrum displayed; there is no change in the data file. Each time a 
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plus sign is typed the display window is positioned to the beginning 
of the spectrum. 



B (baseline correction ) 

When B is typed, the base line of the spectrum is set to the Y axis 
cursor value. Then the base line is positioned to the vertical center 
of the scope and the display window returns to the beginning of the 
spectrum. All subsequent Y values will be interpreted relative to the 
baseline. 



The zero point of the X axis is set to the cursor X value (i.e., the 
point in the raw data file) which effectively sets the reference point 
for all future X values. Typically, the cursor would be positioned on 
a reference or identity peak and then O will be typed. In this way, 
all library entries for a particular instrument have a common reference 
point. The spectrum must be offset before any values are fixed or an 
error message will result. (In that case, fixed values must be deleted 
with the E command. ) 

F (fix point value ) 

Characteristic peaks of the displayed spectrum may be specified by the 

user to describe the points of interest. These values are stored on the 
LIFE library tape/disk and used when identifying an unknown spectrum 
by comparison. A point is fixed by the following procedure. 



1. Position the display window (using knob 0) so that 
the desired peak is in view, and the display has 
stopped moving. 

2. Position the cursor (using knob 1) to the character- 
istic value of the peak. The third word of the cur- 
sor display may be helpful in this positioning. 




O (offset) 
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3* Type F on the Teletype. The value of the cursor 
point is now recorded and the above procedure may 
be repeated for the next point of interest. 

As many as 95 values may be fixed at a time (190 for a single parameter 
instrument); at least five must be specified. In addition, each succes- 
sive X value must be greater than the previously specified X value as 
determined from the second number displayed in the left corner of the 
scope. 




The response to message 5, type of instrument, determines what data is 
stored. 

For one parameter instruments, only the X value is stored. In the above 
diagram, 7 will be stored if an F is typed at the cursor value shown. 

For two parameter instruments , both the X and Y values of the cursor 
point will be stored. In the. above example , X will still be 7. Y will 
be the difference between the cursor data point value and the baseline 
value. Note that if the baseline has not been set using the B command, 
it is assumed to be zero. 

In the following example , the O, B, and F commands are used. The bottom 
horizontal scale shows the X values of the raw data for a 25 point spec- 
trum. The vertical scale shows the Y values of the raw data. The let- 
tered points represent the cursor values. 

123456 789 10 11 

\ 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 
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1. First the cursor is moved to position A and 0 (for 
offset) is typed to set the X axis zero point at raw 
data point 14. The top horizontal scale shows the X 
axis relative to the offset zero point. 

2. The cursor is then moved to position B and B (for 
baseline) is typed. This sets the baseline to a 
value of 2 on the vertical scale. 

3. Finally, the cursor is moved to positions C, D, and 

E, and F (for fix location) is typed at each position. 
The values stored are as follows: 



Cursor Position X Value Y Value 



C -8 3 

D 0 4 

E 7 2 

P (print selected peak points ) 

The P command allows the user to print out the selected peaks just de- 
fined. For the above example # the printout would be as follows : 



SPECTRUM : EXAMl 
INSTRUMENT : NMR 

PK X VAL Y VAL 

01 -0008 0003 

02 0000 0^^4 

03 0001 0002 



The above commands are used to define or characterize a spectrum. 

Each one of them may be implemented at any time and as often as desired , 

When a spectrum has been completely characterized two options remain : 

X (exit ) 

An exit request will store the fixed spectrum characteristics on the 
LIFE library tape/disk. If less than five parameters have been defined, 
an error message will result. If E has purged the list of parameters, 
or if no parameters were saved, no storage will take place, and the 
program will redisplay message 3. 
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U (identify iinknown spectrum) 

This mode allows the user to search the LIFE library tape for spectra 
with similar characteristics to the spectrum just defined. The search 
will include only those spectra which were previously stored under the 
defined instrument name of the unknown. The comparison will be carried 
out on those parameters defined by the fix command. 

When U is typed, the following sequence of messages is generated: 

Message 8 

ALLOWABLE ERROR TOLERANCE 

1 - PERCENT 

2 - ABSOLUTE 

CHOICE 

X TOLERANCE: 

Y TOLERANCE: 

Because an exact match of parameters is not likely , LIFE allows the user 
to specify the allowable error tolerance around a library spectrum peak 
value within which the defined spectrum peak value being compared may 
fall and still be considered a match. This tolerance may be specified 
as a percent of the library peak [0-99%] or as an absolute difference 
from the library peak [J2f"999] . 

The choice of percent or absolute tolerances is made in the first line 
of the above message by typing 1 for percent or 2 for absolute. 

X tolerance is the tolerance applied to the X peak parameter. If per- 
cent was chosen, its range may be 0% to 99% of the library peak. If 
absolute was chosen, its range may be 0 to 999 (decimal). Y tolerance 
is the tolerance applied to the Y peak. Its restraints are the same as 
those for the X tolerance. Y tolerance will be ignored if the instru- 
ment's spectra contain only X values. 

The tolerance, whether percent or absolute, extends to both sides of 
the library peak value. Therefore, a match exists for X values between 

of the library spectrum and X^ of the unknown spectrum if the follow- 
ing condition is true: 

X^-TOL<X, <X^+TOL 
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where 



TOL = X VALUE (absolute) 

or 

TOL = X- . X VALUE (percent) 
^ 100 

The next display for identifying unknown spectra is: 

Message 9 

MISSES ALLOWED 

The number of misses, or non-matches , that will be accepted in the com-- 
parison of the peaks of two spectra must be specified. This number may 
range from jZf to 94 and must be less than the number of fixed peaks in 
the unknown spectrum, because the matching algorithm determines that 
each peak in the smaller [fewer peaks] of the two spectra being com.pared 
is either a "match" or a "miss". If the number of misses is greater 
than the number of points in the unknown, each library spectrum would be 
considered a match for that unknown, regardless of the similarity of the 
spectra. 

After the number of misses is specified, the LIFE program will search 
the LIFE library tape for matching spectra using the restrictions de- 
fined above. If no spectra have been saved previously for this instru- 
ment, the program returns immediately to the spectrum display. The fol- 
lowing is a summary of the matching algorithm for a two parameter [X,Y] 
instrument. (The matching algorithm for a one parameter [X] instrument 
is a subset of this algorithm. ) 

To determine if an unknown spectrum peak matches a library spectrum peak 
it is necessary to know: 

1. which spectrum has fewer fixed peaks [if the number 
of spectrum peaks are equal, the library spectrum is 
assumed to be smaller] , 

2. the X and Y components of this library peak, 

3. the X and Y components of the unknown peak, 

4. the absolute tolerance [if a percent tolerance was 
chosen it is now multiplied first by the library peak 
X component to yield the absolute X tolerance for this 
peak, and then by the library peak Y component to yield 
the absolute Y tolerance] . 
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It is assumed that, for both spectra, all peak X values are in ascending 
order. 

For the program to consider the library peak with which to "match" the 
unknown peak, it is necessary that: 

a. LIB X VAL - XTOL£UNK X VAL£LIB X VAL 4- XTOL 

b. LIB Y VAL - XTOL^UNK Y VAL£LIB Y VAL + YTOL 

If both conditions are true, the peaks match, and the next peak in each 
spectrum is considered - 

If either one is untrue, the peaks do not match, but a "miss" is not 
yet said to occur. [A "miss" is a peak on the smaller of the two spectra 
that does not match any peak on the larger] . A miss will occur for a 
peak if the following are true: 

1. the peak is on the smaller spectrum, 

2. the peak X value is less than the X value of the larger 
spectrum, 

3. the matching criteria a and b above are not met. 

If the matching criteria are not met , the spectrum peak with the smaller 
X value is replaced with the next peak from that spectrum, and a new 
comparison is made. 

Whenever the number of missed peaks on the smaller spectrum exceeds the 
number of misses specified, the program immediately reinitializes and 
starts comparing the unknown to the next library spectrum [if any] . 

If all spectrum peaks on the smaller spectrum have been compared, and 
the allowed number of misses has not been exceeded, the library spec- 
trum is output as a match for the unknown. 

If all spectrum peaks on the larger spectrum have been compared, all 
remaining uncompared peaks on the smaller spectrum are considered as 
misses, and the decision to output is made immediately thereafter. 

The following is an example of the printout that will occur during the 
matching operation: 



12 



UNKNOWN: 



SPECTRUM 



PK, PTS 



T-BUTCL2 



LIBRARY! 



SPECTRUM 



PK, PTS 



MISSES 



T-BUTCL2-SAMi 
T-BUTCU2-'SAM2 
T-BUTCL2-SAM3 



60 
43 
54 



1 
2 

0 



Note that either the library spectrum or the unknown spectrum may be a 
subset of the other, and a match will still occur, 

When the matching operation has been completed, LIFE returns to the 
display mode and the +, B, O, F, P, x, and U commands again become 
active, 

4.3 Choice 2 - PRINT 

After initialization, the PRINT mode generates on the teleprinter the 
index of the LIFE library tape/disk unit or the peak values for a partic- 
ular spectrum for a specified instrument. 

The initial PRINT display is: 

Message 11 



Type the appropriate nximber 1 to 3. 

Typing 1 prints an index containing the instrument' s name, spectrum 
name, unit name, starting block and number of points fixed similar to 
the following. The order in which the spectra are listed is the order 
in which they were placed on tape. 



1. 
2. 
3. 



INDEX 

LIBRARY SPECTRUM 
EXIT 



CHOICE 
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INDEX OF LIBRARY SPECTRA 



strument 


SPECTRUM NAME 


TAPE NAME 


STARTING 




NMR 


OOCB 


DEC 


010 


0018 


NHR 




DEC 


160 


0032 


NMR 


INOENE 


DEC 


170 


0025 


NMR 


OlOXANE W/ Cl3 


DEC 


220 


0012 


NMR 


TETR4SLYME 


DEC 


230 


0014 


NMR 


OIPMENVL METMANE 


DEC 


240 


00(!7 


NMR 


TE I RAHYOROfURAN 


DEC 




n n ^ (% 


NMR 


XYLENOU 


DEC 


260 


0007 


NMR 


ROUYITYRENC • 


DEC 


270 


0014 


NMR 


METHYL FORMAMIOE 


DEC 


320 


0026 


NMR 


DIMETHOXYNAPTHA 


DEC 


390 


0012 


NMR 


t-butanol 


DEC 


370 


0015 


NMR 


T-BUTCL2-SAH1 


DEC 


390 


0060 


NMR 


T-BUTCL2-SAM2 


DEC 


410 


0043 


NMR 


T-BUTCL2-SAM3 


DEC 


430 


00§4 


NMR 


T-BUTCl.2 


DEC 


450 


0090 



Typing 2 displays the following message: 
Message 12 

INSTRUMENT NAME 
SPECTRUM NAME 



See message 4 and message 6 for the acceptable response sequence for 
message 12. 

The number of peaks printed is the number of peaks that were fixed, 
A sample printout has the format: 

SPECTRUM I T-BUTANOL 

INSTRUMENT I NMR 

PK t VAL Y VAL 



01 


.0033 


0844 


02 


-0026 


0051 


03 


0050 


0129 


04 


0054 


0055 


05 


0077 


0084 



At the completion of either printout, LIFE returns to message 3* 
Typing 3 causes LIFE to return directly to message 3. 
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4.4 Choice 3 - ERASE 



The ERASE mode permits deletion of the entire LIFE library (essentially 
reinitialize the tape), an entire instrument type, or a single spectrum. 

The first message displayed for the ERASE option is: 

Message 13 

ERASE 

1. ENTIRE LIBRARY 

2. ENTIRE INSTRUMENT 

3. SINGLE SPECTRUM 

4. EXIT 

CHOICE^ 

The choice is made by typing the appropriate number followed by line 
feed. 

If 1 is typed, the LIFE library is to be reinitialized, removing all 
files from the library tape/disk. A warning message is displayed first 
to minimize accidentally destroying a library tape. 

Message 14 

SURE?_ 

Type Y if the whole tape is to be erased; type N if this was an incor- 
rect choice. Message 3 is displayed after either response. 

Typing 2 indicates that an instrument name is to be deleted from the 
LIFE library tape/disk. The following message is displayed: 

Message 15 

INSTRUMENT NAME 

Refer to message 4 for the response syntax. The instrument name and 
all the associated spectra are then deleted from the LIFE library tape/ 
disk and message 3 is displayed. 

If 3 is typed, a particular spectrum is deleted from the LIFE library 
tape/disk. Message 12 is displayed in order to define the spectrum to 
be deleted. Refer to message 6 for the response syntax. After typing 
the reply, the spectrum is deleted and message 3 is displayed. 

A response of 4 to message 13 causes LIFE to return to message 3. 
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4,5 Choice 4 - RETURN TO DIAL 

After initialization, the user may return to the DIAL system by typing 
4 on the teleprinter* 

5.0 ERROR MESSAGES 

An error will be indicated by a message in the form 

ERROR 
N 

PRESS LINE FEED TRY AGAIN, 
where N is one of the following numeric error codes: 

1. ATTEMPTED TO ADD SPECTRUM THAT WAS ALREADY IN LIFE FILES. 

2. ILLEGAL CHARACTER TYPED. 

3. OFFSET [O] REQUESTED, BUT PEAK VALUES HAVE ALREADY BEEN SAVED. 

6. NUMBER OF MISSES REQUESTED > NUMBER OF POINTS IN UNKNOWN SPECTRUM. 

7. ATTEMPTED TO SAVE A SPECTRUM WHOSE NUMBER OF PEAKS IS NOT BETWEEN 
5 AND 95. 

8. X VALUE OF CURRENT PEAK <X VALUE OF LAST PEAK STORED. F COMMAND 
CANNOT BE CARRIED OUT. 

9. NO MORE ROOM ON LIFE UNIT .[INDEX OR BLOCKS]. 



6.0 ASSEMBLY INSTRUCTIONS 

There are four subprograms to the LIFE system, which are assembled to- 
gether via the chaining feature of DIAL-MS. They are: 

LIFE B0 [resides in instruction field 0] 

LIFE B4 [resides in instruction field 4] 

LIFE B6 [resides in instruction field 61 

LIFE B5 [resides in instruction field 5] 

To assemble LIFE, the command is simply 

AS LIFE B01,0 ^ 
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assuming the DIAL-MS tape containing LIFE is mounted on unit 0. 
To save the binary, the proper DIAL command is: 
— SB LIFE,0,L10026^ 
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APPENDIX A 



SUMMARY OF DISPLAYED MESSAGES 



LIFE IS CREATED 
LIFE UNIT— 



tape not initialized 



N 



NOT LIFE TAPE 
INITIALIZE? Y OR 



initialize 
LIFE tape 



FUNCTIONS} 

1. GENERATE NEW SPECTRUM 

2, PRINT 
3- ERASE 

4. CALL RETURN TO DIAL 



choice: 



-0 



I 

I DIAL 



N 



new instrument 
>J^ 



INSTRUMENT NAME 

1 



NEW INSTRUMENT 
ACCEPT? Y OR N: 
TYPE 

1 IF X ONLY 

2 IF X AND Y 



existing instrument 

— I 



© 



UNIT NAME 

SPECTRUM NAME- 



UNIT NUMBER — 

START BLOCK 

PTS IN SPECTRUM- 



J 

( commands may be typed: | 



0- 



halve display 

+ double display 

B baseline correction 

O offset 

F fix point 

P print peaks 

X exit 

U identify 



U 



X 



<E) 



© 



A-1 



0 



0v 



ALLOWABLE ERROR TOLERANCE 

1 PERCENT 

2 - absolute 
choice; _ 

x tolerance 

y TOLERANCE- — 



MISSES ALLOWED— 




ERASE 

1. ENTIRE LIBRARY 

2. ENTIRE INSTRUMENT 

3. SINGLE SPECTRUM 

4. EXIT 

CHOICE 



' LIBRARY IS^ 
* REINITIAL-* 



SURE? 




INSTRUMENT NAME 



- ^ J 

I INSTRUMENT | 
I NAME IS ^ 
. DELETED 



INSTRUMENT NAME 

SPECTRUM NAME 



— 

I SPECTRUM IS I 
I DELETED I 





1. INDEX 

2. LIBRARY SPECTRUM 

3. EXIT 

CHOICE 



Jl 



I INDEX 
^ IS 



PRINTED 




INSTRUMENT NAME- 
SPECTRUM NAME— 



I PEAK 

' VALUES 

I ARE 

I PRINTED 




A- 2 



I 



APPENDIX B 



CORE MAP 



Segment 



LIFE BJ? 
(UNKNOVm PK BUFF 
FROM 10j2(-4i2ri2f) 



1 



2 



3 




LIFE B4 



TEXT MESSAGES 
QANDA 



LIFE B6 
(SUBROUTINES) 



SUBROUTINES 

LIFE TAPE BLK 0 
LIFE TAPE CURRENT BLOCK 



DIAL MS I/O ROUTINES 



B-1 



APPENDIX C 



LIFE DATA TAPE 



BLK 0 



9^ INDEX 

1 





777 



C-1 



APPENDIX D 
SPECTRUM DATA INDEX (BLOCK jS ) 



WORD 



0 



325 



377 





I 




N 




D 




E 




X 


E 




N 




T 




R 




I 




E 




S 






DA 




MAP 




111111 



1110-1111 



3 word format/instrument 



words 1,2: 
word 3: 



4 ASCII character 
instrument name 

Bits 0,1- Numerical 

parameter of 
instrument 

Bits 2-11 = START BLOCK 
of instrument 
data 



Maximum of 6j3f instruments 



1 bit corresponding to each block 

from 0-^1111 

Set if Block in use. 
Clear if Block unassigned. 
Bit 0 always set. 
End bits corresponding to 
Blocks > 7777 always set. 



D~l 



APPENDIX E 



SPECTRUM NAME 



TAPE NAME 



START BLOCK 



# PTS IN SPEC 



A 



SPECTRUM NAME 



TAPE NAME 



START BLOCK 



NUM PTS 



DATA 



SPECTRUM DATA BLOCKS 

Unused (if first block of an instrument's data) 

16 ASCII characters (if first word = 7777, 
end of instrument datai . 

4 ASCII characters (if first word = 
spectrum deleted) , 
^ on DATA ( not LIFE) tape- 



] 



# locations = # PTS * # parameters 



NEW SPECTRUM 



if 7777^ no new block. 



BLKA 



DATA 

CONTINUED 



E-1 



APPENDIX F 



FLOWCHARTS 



READ 


DIAL 


MS 


I/O 


ROUTINES 



S TRT^ 



/ DISPLAY: 
/"LIFE IS CREATE! 

'life unit _ ^ " 



NO 



YES 



READ BLOCK j2l 
INTO B7QJ0f 



-^TRT^ 



VRfi/ lS TT T.TFfK 
\ TAPE? / 




STRT2j 



DISPLAY: 
^"NOT LIFE TAPE 
INITIALIZE? 
y OR N; _:r,^ 



<^ INIT ^ 



NO 



YES 



INITIALIZE 

TAPE 
(7770-7777) 



STRTC ^ 



> 




^ 





/ DISPLAY: 
/ FUNCTIONS : 

1. GENERATE NEW 
SPECTRUM 

2. PRINT 

3 . ERASE 

4. CALL DIAL 
CHOICE _ " 

<;^H0ICe\ 



)TD0R) btprt ) (sterr) 



Q STDIAlT^ 







GET TO PDP 
MODE 


\ 


f 


JMP TO DIAL 
RESTART IN 
I/O HANDLER 



DIAL 



r STPRT j ^ 



(PRINT I 

(Option! 



TYA2 ^ 



DISPLAY : 
PRINT 

1. INDEX 

2. LIBRARY 

SPECTRUM 

3. EXIT 
CHOICE^ 




CHANGE 
BANKS 






^ , 


PRINT 3 
LF*S 






PRINT 
"INDEX" 


\ 


f 


PRINT 2 
LF'S 


> 


r 


PRINT 
HEADER 




f 


PRIN 
I 


T 1 
.F 



^^^tya ) 



SET PTR: 
11=L0C INDEX ENTRY BLK j2f 



YESi 
|S^TC^ 



IS nextN 

ENTRY A 

(PRINTOUT 
OVER?) , 



NO 



IS NEXT \ 

-Gentry del?) 



> 


,yes 


SKIP 
INDEX 


PAST 
ENTRY 



GET INST NAME 
FROM INDEX INTO 
4 ASCII CHAR IN 
SPECTRUM PART OF 
PRINTOUT LINE 



GET THIRD WORD 
OF INDEX ENTRY 
(=FIRST SPEC BLOCK) 



READ 


FIRST 


BLOCK 


INTO 


B7Q1 






GET TO 


START OF 


SPECTRUM DATA 




TYA4 



MORE SPECTRA 
(NEXT WORD =0) 



\yes 

?/(GE'] 



NO 



(GET NEXT 
INST) 



DELETED 
SPECTRUM 
\ ^ (TAPE WDl=j2f)? 

^ TYA2 ^ 



F-2 



^ TYA2 ^ 





f 


. SAVE SPECTRUM 
NAME, TAPE NAME 






< u 


GET STARTING 
BLK 




f 


CONVERT TO 
OCTAL 



^ "^TYAYS) 



GET NUM 
PTS 




t 



/to "PRINTLN"^^ 
I (OUTPUT IT) J 



LINE 



■ (tyax) 



UPDATE 


FILE 


POINTERS 




f 



Q TYA4 ^ 



^ PRT2 ^ 



'PRINT 

i SPECTRUM 



/ DISPLAY: 
"INSTRUMENT NAME 
SPECTRUM NAME"y 



SINGL 



STORE SPECTRUM, 

INST ANS IN 
OUTPUT BUFFERS 




1 



DO ERi2f ^ 
(FIND INSTRUMENT 
MATCH, IF ANY, 
FROM BLOCK0 
OF LIFE TAPE)^ 



^TYC ^ 



^WTCH^^^j^^~>^ S TARTC^ 



YES 



GET FIRST 
BLOCK OF INST 
DATA IN AC 






^ — 1 


READ IN 
BLOCK 








, 


TRANSFER 
NEXT SPEC 
NAME TO BUFF 







^ TYCl^ 



^TYCIA^ 



IS SPECTRUm X vpr 
, DELETED?/ 



NO 




4 ( 


DO COMPARE 
OF NAMES 


1 





^TYCIM^ 



^MATCH'^ -J^ 



YES 



^ TYCIN ^ 



GET TO 
NEXT SPECTRUM 


1 


f 



END OF 
INST DATA 



^ STARTC J 




PRINT 
HEADERS 
(SPEC NAME, 

INST NAME 
XVAL,YVAL,PR) 



^^^TYCNT ^ 



F-3 









1 SPECTRUM 1 




f 




1 FOUND, 1 


SET MR 




! PRINT 1 


TO -NUM 


PTS 



I 



SET PTRll TO J3f 
(LINENUM) 



^< TYCID ^ 



SET PTR7 TO 
-NUM PARA 






1" — ' 


STORE NEW 
LINE # 







TYClE 





GET 


NXT X 




VAL 


IN AC 






. 1^ / 





TYCIF ^ 



CONVERT, STORE 



.ISS^MORE \ 
\PARA? / 



NO 



PRINT 


LINE 


BMP 


11 




F-4 



^ ERR2 ^ 

DISPLAY 
^"INSTRUMENT) 
NAME" 



I DELETE "j 
J INST ^ I 



— iPcsuB ^ 



SAVE IT 



DO ERj? 
(FIND MATCH, IF 

[ANY, ON INST NAME 
.FROM BLKj2( INDEX) 



MATCH 



YES 




ST ARTE 



STORE 


7777 


FOR 


3 WD 


INDEX 


ENTRY 



^ER2RTN ^ 



WRITE BLOCK 
9 



^ STRTB ^ 




ER2 



GET FIRST 
BLOCK IN 
AC 



DO ER2S1 
(CLEAR 
^CORRESPONDING 
DA BIT) 



▼ 



GET THE 
BLOCK 



NO^ 



/ LAST? 

(WD 377=7777)? 



YES 



F-5 



Q STERR ^ 



' ERASE I 
OiOSEN j 



DISPLAY 
"ERASE 
1. ENTIRE LIBRARY 
2. ENTIRE INSTRUMENT 
3. SINGLE SPECTRUM 
/4 . EXIT 



CHOICE- 




^ ( sT^TC^ ^ JERR3 ^ 



INTP 



STORE 111^-1111 
TO IDENTIFY 
LIFE TAPE 



I 



STORE 
INDEX, 


0 THRU 
DA MAP 




r 


PUT I'S FOR BLKJ?, 
ODD BITS OF 
LAST WORD 






WRITE BLOCK j 
OUT 1 




F-6 



Q ERR3 ^ 



^ 



I DELETE ' ! 
I SPECTRUM J 



DISPLAY : 

^"INSTRUMENT NAME 
SPECTRUM NAME '7 




STORE SPECTRUM, 
INSTRUMENT ANS 
IN OUTPUT BUFF 




1 


^ HDELSP 



DO ER|? 
(GET INSTRUMENT 
[ENTRY IN BLOCK 0 
IF ANY) 



MATCH? 



ML 



1 


YES 

r 


GET FIRST 
BLOCK IN 
AC 


1 


f 



FNDSPB 
(GET SPECTRUM 
MATCH: AC=0; 
IF NONE, ACt^J?) 




^ MATCH? ^ ]>N0 



WRITE OUT 
BLOCK fg 



Q STARTB ^ 



YES 



STORE 0 
IN FIRST 
TAPE WORD 



WRITE OUT 
BLOCK 






WRITS 
BLOC 


: OUT 
:k j? 



^startb"~^ 



F-7 



^ STDOR ^ 



/ DISPLAY : 
/iNSTRUMENT i 
/ NAME 



•GENERATE i 
I SPECTRUM I 
CHOSEN I 



JL 



^PCSUB^ 



SAVE IT 



/ DO ERjaf ^ 
((CHECK FOR INST 
V MATCH IN BLK9) , 




DISPLAY 
"UNIT NAME 
/SPECTRUM NAME" 



I 



STORE TAPE, 
SPECTRUM NAME 


1 


7 



^ STDQRG ^ 



^ STD0R3 ^ 
^ 



DISPLAY 
/"NEW INSTRUMENT 
ACCEPT? 7 OR Ki/ 

TYPE: 

1 IF X ONLY 

2 IF X AND 




STD0R6 ^ 

1 



DISPLAY 
UNIT # 
f START BLl 



^ LEGAL ) 



YES 



STORE 
DATA 



SET: 
# UNKPTS=J2f 
PT 0FFSET=1777 
LAST PT VAL= 
-LARGE 



— \ CARRY PAST 
YES \ 777? 



NO 



DO READ 
OF DATA 

'D0RG03 



^D0RGQ3 ^ 



^ ( ^ORAGO ^ 



Xdo clrcru 

/ {CLEAR UNK 
I CURVE B0 LOC I 
^ 191 0-371) J 



^RGQl^ 



SET UP TO READ 

# BLKS OF 
SPECTRUM DATA 


1 





F-8 



SET PTR5 AS 
UNK PEAK INDEX 
(TO 77) 



INITIALIZE 
DORETTE 
PARAM'S 



CLEAR 
KEYBOARD 



DORETTE 
(MOVING 
WINDOW) 



NEW 

JiO/CHARACTER 
FROM 
VKEYBOARD/ 



D0RG04~^ 



1 


YES 

r 


ECHO IT 





( mINUSI ) ( PLUSl^ ( ^01 ^ 



C 



o 

T 



P OTHER 



Bl 



3 Cji 



F-9 



TOO MANY 

\ PEAKS ALREADY 
(795) 



GET XV AL 
- OFFSET 



I ADD ANOTHER|| 
IPEAK j 



> D0RG04 ^ 



YES 



^ r 

^ FIRST PT ^ 



NO 



( 



IS THIS XVAL 
> LAST 



STORE 
XVAL 



NO 



MORE THAN^ 
ONE PARA / 



BUMP # 
UNK PEAKS 



^-^^^^- ^ D0RG04 ^ 

— C ^^^^^ ) 



STORE YVAL 
AS CORVAL- 
YOFFST 



^ MINUS 



I DECREASE " 
jDISP SIZE 
iBY 2 



GET +1 
IN AC 



PLUSl ^ 







} INCREASE 






I DISP SIZE 






1 BY 2 









GET -1 
IN AC 



ADD TO 
YSCALE 

p<C— 



'IS SCALING 
WITHIN 
LIMITS 



YES 

4 — 



STORE AS 
NEW SCALE 



REPLACE 

WITH HARD 
LIMIT 



Q D0RG04 ^ 



K 



F-11 



^SET NEW ) 

'baseline; 



SENSE i 


SWITCH 


5 IGNORED 




r 


YOFFSET= 


=-CORVAL 



I ERASE ALL 

I CHOSEN PEAKS 



rDD CLRCRU 
{CLREA UNK 
CURVE, B)2f 
LOC lJ2(jaf-377) 



1 




REINITIALIZE 
PK PTR 5 TO 
LOC 77 







^ D0RG04 ^ 



CEZ) 



J SET ' 
f OFFSET ! 
▼ — ' 




▼ 



TAKE PRESENT 
PEAK NUMBER, 
STORE AS 
OFFSET 



^ D0RGQ4 



F-12 



Q PRNTl ^ 



' print out 

[peak values 

cCHOSEN 



CLEAR 
PRINT BUFF 



$ 

INITIALIZE TYCNT 
PRINT ROUTINE BY: 

A. NUMPTS=# LINES 

B. DATA PTR TO UNK 
BUFF (NOT LIB) 



DO TYB 
(PRINT HEADER) 
"PK XVAL YVAL" 



DO TYCNT 
(PRINT PKS) 



^ D0RG04 ^ 



F-13 



/ARE THERE 

ANY PKS 
V CHOSEN? 



ADSSPX ^ 



jEXIT PEAK \ 
, PICKING MODE. 
.MAY ADD SPECTRUM 



LIBRARY 



YES 



^HAVE AT 
LEAST 5 
S^PEAKS BEEN, 
vCHOSEN? 



YES 




1 


* t NEW i 
t SPECTRUM 1 
1 UNIQUE I 

f ' -« 


TRANSFER: 




SPECTRUM NAME 




TAPE NAME 




START 


BLK # 




# PTS 






ALL PK VALUES 




END 7777 









DO ERl ^ 
(FIND IF \ 
INSTRUMENT ] 

EXI^S IN BLKJ2f J 
INDE X ) j /^ 



NO./ BLOCK OVERFLOW \ 
\ ANYWHERE? / 



{ MATCH? y 



ADSSPA J ) 



NO 



TAPE 
FULL ? 



D0RG04 



NO 



DO FNDSPB 
ATTEMPT TO 
GET SPECTRUM^ 
MATCH) 



DO FN DAD 
(GET, SET NEW) 
DA BIT) 



JL«.yes^ 

( MATCH )^D0RG04j 



YES 



DO FN DAD 
(GET NEW DA 
VbLOCK, SET BIT) 



NO 



■ ^ADSSP^T ) 



CREATE 
INSTRUME] 


3 WORD 
tJT ENTRY 




I 


READ 
SET UP F 
SPECTRUM 


BLOCK , 
OR FIRST 
STORAGE 



^ ADSSPX ^ 



PLACE NEW BLOCK* 
IN LAST WORD 
OF OLD BLOCK. 
WRITE OUT 






^ 


1 STORE LAST 
LOC AS 7777 




r 


WRITE OUT 
LAST BLOCK 



^ D0^04 ^ 



T 

^ ADSSPXJ ^ 



F-14 



I CHANGE ANS 

I BUFFER FOR 
1 B0 DISPLAYS 



jIDENTIFY AN. 
.UNKNOWN 
SPECTRUM I 
p/IA library] 



DISPLAY: 
'^"ALLOWABLE ERROR 
TOLERANCE 

1. PERCENT 

2. ABSOLUTE 
CHOICE : 

X TOLERANCE 
Y TOLERANCE 



I 



^ LEGAL y !^^DQRGQ^ 



YES 




U4 



^ % CHOSEN 





YES 


CALCULATE 
X% AS A 
FRACTION 







/ ONE 
\ PARAMETER 



\yk.s 

/ 



NO 



CALCULATE 
Y% AS A 
FRACTION 



DISPLAY 
MISSES ALLOWED 



7 



IS MISSES > ^ 
# PKS IN UNK 
SPECTRUM? 



^' 14 ^BPR ^ 



DO ERj2f \ 
(FIND INSTRUMENT \ 
^IN BLK ff INDEX) J 



ANY DATA 
EXISTING? 
(MATCH ?)> 



^NO 



Jyes 




D0RG04 



READ 


IN 




FIRST 




BLOCK 












ft — 


-/lbprb 



PRINT: 
3LF 
"UNKNOWN:" 
"SPECTRUM PK PTS" 
2LF 



TRANSFER SPECTRUM 
NAME, NUM PTS OF 
UNKNOWN 



I 



PRINT 
UNKNOWN LINE 



I 



PRINT: 
3LF 
"LIBRARY" 
2LF 

"SPECTRUM PK PTS, 
MISSES" 
2LF 

I 



/^^LBPRX j 



F-15 



^ LBPRX ^ 



INITIATE 
SPECTRUM 
TRANSFER 



LBPRC 



/IS THIS THE 
END OF INST~-)XE£L 
\RUMENT DATA / 



NO 



LBPRD 



►( ^D0RG04^ 



IS THE 
SPECTRUM 
DELETED? 



.NO, 



YES 



GET PAST 
IT 



FILL SPEC NAME, 


# PK PTS 


ON 


PRINT 


LINE 






— 1 



LBPRF 



1 



DO "MATCH" 
(MATCH BETWEEN 
UNKNOWN AND 

PRESENT LIBRARY 
CURVE TRIED) 



NO 



MATCH ^ 



YES 



FILL IN 
NUM PTS 
MISSED 





* 1 

PRINT LF 







F-^16 



« 



c 



MATCH 



CH ^ 









J TO FIND OUT| 




1 IF SPECTRA ( 




1 MATCH 1 




I -V 



LIBRARY? 



YES 



SET 
FLAG 



^< (matchc ) 



(DO PTCMl >v 
(COMPARE NEXT ) 
POINT) J 



I 



^ matchd ^ 



/ # MISSES AnO, 
\ OVERFLOWED?/ 

YES 



DO PASTSP \ 
(GET PAST ) 
PRESENT SPECTRUM) J 



ARE LIB 
?KS COMPLETELY 
EXAMINED 



C 



MATCHE 



.YES 



3^ 



I 



ARE UNK 
'PKS COMPLETELY 
EXAMINED 



SET UP 

"nomatch" 

RETURN 



( ) 



so 



3 



SET UP 
"MATCH" 
RETURN 



^ OOT ^ 



F-17 



c 



PTCMl 



3 



^ PTCM4 ^ 



I SUBROUTINE"! 
I TO COMPARE I 



PT MATCH? 

unk+tol>^lib? 
^unk-tol<_lib?^ 

Ino 



,YES 



SET NUM 
PARA 



-(^ PTCM2 ^ 



^ PTFAIL ^ 

/ FIRST \ 
\ PARA / 

^ PTFALP ^ 



YES 



GET 1 


SIEXT 


UNK 


PK 


IN PTR 14 




r 


GET 


NEXT 


LIB PK 


IN OFFSET 








< 






ADVANCE 


PTR 


7 TO 


TOLERANCE 



^ NO 



RESET COMPARE 

WORDS WITH 
XVALUES 




PTCM3 ^ 



/"DOES SPECTRUM^ 
NO / WITH LESS PKS 
HAVE PEAK OF 
LESSER VALUE, 



YES 



BUMP 

ERROR 

COUNT 



YESi 



% TOL 



YES 



X 

-c 



PTCM4 



PTCMA 



MULTIPLY 
LIB PK BY 
% TOLERANCE 
[STORE IN PTR7 



'YVAL IN SPEC~> 
TRUM WHOSE PK 
XVAL IS LESS? 
(WAS FAILURE 
ON YVAL) 



^NO 



BUMP 

TO 
YVAL 



▼ 



SAVE NEW 
XVAL 



^ PTCM4 J 



C 



PTCM3 



N0>^ 




.L PEAKS 
SEEN? 



^YES 



i 



/LAST PARAGES 
( (DO PEAKS 
>i MATCH?), 

PTCM6 ^ 



^ PTFALK^ ^ 



MOVE 


LIB 


PTR TO YVAL 


1 





YES 



/WERE ALL> 
^EAKS SEENN 
EN SMALLEI 
VSPECTRUMV 



NO 



ALL REMAINING 
PEAKS ARE 
ERRORS 




^ H 

GET TOTAL 




PKS COVERED 






r 



^ OUT ^ 
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^ PTCM6 ^ 



SAVE X 
VALUES 



i MATCH ON ~ j 
IXVAL IN i 
'2 PARA. INST I 



/ WAS LIB OR 
njNK PTR ALREADY \ ^y^-;> 
. AT YVAL? (XVAL 
\ MATCH ON PREV 

\ PK) ? 



BUMP APP 
PTR TO 


ROPRIATE 
YVAL 


r J 




^ 

r 


UP DAT 
SPECTRU 


E ALL 
M PTRS 



^ PTCM3 ^ 
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INDEX 



Absolute Error 10 
Assembly Instructions 16 
A/D Knobs 5, 6 

Baseline Correction 7 

Coininands 6 
Core Address 6 
CTPL/R 3 
Cursor 5, 6 

DIAL-MS 1 
Disks 1 

Display Window 5 
Double Display Size 6 

Erase 15 

Error Messages 16 
Error Tolerance 10 
Exit 9 

Fix Point Values 7 

Flowcharts of Displayed Messages A~l 
Functions 2 

Generating New Spectra 3 

Halve Display Size 6 
Hardware Requirements 1 

Identify Unknown Spectrum 10 
Index 13 

Initialization 1 

Instrument Definition 3 
Instrument Deletion 15 
Introduction 1 

Library 2, 10, 13, 15 



Line Feed 2, 4 
Loading Procedure 1 

Misses Accepted 11 
Modes of Operation 2 

Non-matches 11 

Octal Words 6 
Offset 7 

Operating Procedures 1 

Percent Error 10 

Print 13 

Print Peak Points 9 
Raw Data 4 

Spectrum Definition 4 
Spectrum Deletion 15 
Spectrum Display 5 
Spectrum Matching 11 
Spectrum Printout 14 
Spectrum Search 10 

Wrap-around 5 



i 



( 



00 00 






*2 0 




0001 






/LITE B0 




0002 






/REAL TIHE LIBRARY LOOKUP OF UNKNOWN SPECTRA 


00 03 






/COPYRiGHT 1970J DIGITAL EQUIPMENT CORPORATION 


0004 






/ 


MAYNARD. MASSACHUSETTS 01754 


0005 






/ 




0006 






/ 




00 07 






/RELEASED OCTOBER 1970 


0010 






/ 




0011 






/ 




0012 






/WRITTEN 


BY RON KLEINMAN 


0013 






/ 




0014 






/ 




0013 








/PTR BUFF IN THIS BANK 


0016 






SEGMNT 0 


0017 






•20 




0020 








/CONSTANTS, TEMP STORAGE, REF FLGS ETC. 


0021 


0020 


0000 


PARDAT* 


0 /DATA TAPE UNIT « SET BY 0 ISP 


0022 


0021 


0004 




4 /CORE LOCATION • 81 - CNST 


002 3 


0022 


0000 




0 /STARTING BLK NUM « SET BY D ISP 


0024 


0023 


0000 




0 /NUM BLKS « SET BY DORETTE PROC 


0025 


0024 


0000 


NUMPT0 , 


0 /NUH PTS, SET BY DISP. - LEGALITY >200# <6000 


0026 


0025 


1777 


OFFSET , 


1777 /ALSO TEMP FOR PAST SPECTRUM 


0027 


0026 


00 00 


BASLIN. 


0 


00 30 


0027 


00 00 


NUMPRA , 


0 /PARA IN CURVES « NON LEGALLY 1 OR 2 


0031 


0030 


0000 


TLRNCE , 


0 /FDR PARA 1,2.3 RESPECTIVELY IF ABSOLUTE 


00 32 


0031 


0000 




0 


0033 


0032 


0000 




0 


00 34 


00 33 


0000 


MISSES, 


0 /NUM MISSES ALLOWED 


0033 


0034 


0000 


PTSLIB, 


0 /NUM PTS IN LIBRARY TOTAL 


0036 


0035 


0000 


PTSUNK* 


0 /NUM PTS IN UNKNOWN « RUNNING TOTAL* SET PRIOR 


00 37 


00 36 


0000 


COMMIS , 


0 /NUM MISSES FOR THIS SPECTRUM 


0040 


0037 


0000 


PTSCVD, 


0 /NUM PTS COVERED IN MATCH ROUT 


0041 


0040 


0024 


PRCNTl , 


24 /ONE PERCENT - CONSTANT 


0042 


0041 


3700 




37 00 


0043 


0042 


4040 


SPSPA, 


4040 


0044 


0043 


0012 


P12, 


12 


0045 


0044 


0000 


UNKVAL » 


0 


00 46 


00 45 


00 00 


BUMPR* 


0 /SET=NO BUMP PTR 14, UNK 


0047 


0046 


00 00 


BUMPRl, 


0 /SET=NO BUMP PTR 16, LIB 


00 50 


0047 


0000 


XWORDf 


0 


0051 


0050 


0000 


XWORDl , 


0 


0052 






/ABOVE 3 


FROM MATCH ROUTINE 


0053 


0051 


00 00 


FLAGWD* 


0 /FLAG WORD 


0054 








/BIT0S1, UNKNOWN SPECT RA>L IBRARY SPECTRA PTW IS E 


0055 








/BITlsl, PERCENT TOLERANCE* 


0056 


00 52 


00 00 


PRCTl, 


0 /FOR PARA 1,2,3. RESPECTIVELY IF PERCENT 


0057 


0053 


0000 




0 


00 60 


00 54 


00 00 


PRCT2» 


0 


0061 


0055 


0000 




0 


0062 


0056 


0000 


PRCT3, 


0 


0063 


0057 


0000 




0 


0064 


0060 


0000 


XNHBUF , 


0 /FOR MULT 


0065 


0061 


0000 




0 


0066 


0062 


0000 


XNMTMP, 


0 /IN PTFAIL ROUT ALSO 


0067 






/NEG IF 


LIB XVAL>UNK XVAL 


0070 


0063 


3777 


P3777, 


3777 


00 71 


00 64 


77 74 


QRD, 


READ 


0072 


0065 


7775 


QWT, 


WRITE 



t 



tit) f 0 






«4 00 




00 74 


04 00 


0000 




0 /10 WO BUFTER FOR TEXT STRINGS 


00 75 






«4 15 




7 A 

10 if / 0 








/HALL SUBROUTINE IN B6 FROM B0 


a ffl "7 7 


01 4 1 S 


019 ^^1 
MiC ox 


D6rRR01 . 


Rni 7 1 


1^ 1 1^ k3 


01 4 1 A 


Ot 101 1 




RflR 1 /S AV r RT T 0 IN 1 INC 


!u i. id X 


01 4 1 7 
lt» ~ X ' 


0353 




SCR 13 /SAVr BITS 1-»11 IN MQ 






1 01 OSOi 




1 nA 


0103 


m ^ 9 1 
04 liX 


10 to (00 




10 


0104 


/7i 9 9 


1 01401 

X 10 *T 10 




O 1 A 


0105 


04^0 


00 16 




lo 


0106 


0424 


1560 




BCL 1 


0107 


0425 


6000 




6000 


0110 


0426 


4015 




STC 15 


0111 


0427 


06 40 




LDF 0 


01 12 


04 30 


10 15 




LD A 19 /bti UUNIlNIo Ur LUw A r 1 tn LAUL lU DOrnoio 


0113 


04 31 


019 1 A 

10 <: OO 




VQ U 1 1 A 
AO f\ I X o 


011^ 


ra4 19 






U i r O 


Id 1 1 ? 


014 1 1 
KJ *t O O 


60 20 




IMP P6 PAI 1 


0116 


ait 14 
!0** 0*T 


CUft 47 
10 O "t / 




1 nr 7 /RFTliPN. V AL ur IN AC IS OUTCOME 


01 <1 1 7 
»11 / 


014 'V^ 


661 1 A 
vv XO 




JM P 16 


Id JL V 








/SUBROUTINE TO COMPARE UNKNOWN TO LIBRARY 










/ASSUMES TOL» MISSES* NUM PTS IN BOTH SET 










/WILL HAVE BUMP IF MATCH, RET IF NO MATCH, 


Oil 








/PTRS 7^1A$ i5#16 IN B6SU6 CALLER 


a i ?4 

10 X 








/AC CONTAINS POINTS IN LIB. FLAGWO CORRECTLY SET 










/PTR 16 AT PTS LIB. ENDS AT LAST LOC IN DATA 


DX <.o 








PMOOE 


oil 97 


014 1/S 
|0"f oo 


X V 7X 


MA Tc nr . 

1 w nr i 


TAH ? Fl AGWD 


10 X 010 


0437 


0063 




AND 2 P3777 


lOX Ox 


04 40 


52 57 




JM P MA TC HB ®1 


icix 0<c 








LMOQE 


K/X 


04 41 


4034 


MA TC H. 


STC PTSLIB 


10 i v3 *T 


04 42 


4036 




STC COMMIS 


is; 
i0X 09 


0!4 41 


9010101 
<. IC 10 V 




Ann 0 


D11 lA 
ftf X oo 


0 4 44 


40 17 




STC 17 /SAVE RET 


011 17 
SOX 0 / 


01 4 4"^ 


4037 




STC PTSCVO 


» X *T W 








/riNH WHICH SPECTRUM HAS MORE POINT » 8 CODE 


mi A i 
fcJX *♦* 


014 4 A 
10 *» O 


0\Qi 019 




PD P 


iCX " c 








PMOOE 


011 4 1 
I0X *♦ V 


04 47 


1 0 "15 




TAD 2 PTSUNK 


0x4«l 


101 710 


71 40t 




TMA n i 


101 


01451 

I0"» X 


1034 




TAD 2 PTSLIB /LIB-UNK 


0i1 4A 
l0X*tO 


id "( c 


7700 




SMA Ci A 


011 4 7 


014 Sj( 






JM P MA TC MF 


0150 


0454 


1051 




TAO 2 FLAGWO /IF LIB<UNK 


1711 'Rl 


0455 


7004 




RAL 


01 1 s ^ 
v C 


Kf *T V 


7130 




STL RAR /SET SIT 0 


Oil l^l 
10 i, y o 


04$7 


3051 




OCA 2 FLAG WO 










/I I R HAS } ESS PTS 


(7(1 
lo X J 


0 4 60 


10 34 


MA TCHB « 


TAD I PTSLIB 


0156 


04 61 


7040 




CMA 


01 57 


04 62 


3012 




OCA 12 /PTR 12 HAS - NUM LIB PTS 


0160 


0463 


10 35 




TAO 2 PTSUNK 


0161 


0464 


7040 




CMA 


0162 


0465 


3013 




OCA 13 /PTR 13 HAS - NUM UNK PTS 


0163 


0466 


6141 




LINC 


0164 








LMODE 


0165 








/PTR 16 VIA TRANSB IS AT START OF LIB DATA 


0166 


0467 


0074 




SET I 14 


0167 


0470 


0077 




77 /SET PTR 14 TO START OF UNKNOWN DATA 


0170 








/COMPARE NEXT POINT 


0171 


04 71 


65 57 


MATCHCi 


JMP PTCMl 



01 72 






/CHECK MISSES 


0i73 


0472 


2033 


ADO MISSES 


0174 


0473 


0017 


COM 


0175 


0474 


2036 


ADD COHMIS 


0176 


0475 


0451 


APO 


0177 


0476 


6501 


JMP MATCHO 


0200 






/NUH MISSES TOO HIGH, NOMATCH 


02 01 


04 77 


6535 


MTHRT* JMP PASTSP /GET PAST SPECTRUM 


0202 


0500 


6017 


JMP 17 /EXIT 


0203 






/GO ON, CHECK MORE PTS 


0204 


0501 


0212 


MATCHD, XSK 12 


02 05 


0502 


6504 


JMP .+2 


0206 


0503 


6506 


JMP MATCNE 


0207 


0504 


0213 


XSK 13 


0210 


0505 


6471 


JMP MATCHC 


0211 






/OVER MATCH EOUNO. NUH HISSES IN COMMISi BUMP 


0212 


0506 


0237 


MATCHE* XSK I 17 


0213 


0507 


6477 


JMP MTHRT 


0214 


0510 


1000 


PTCM6, UDA 


0215 


0511 


0044 


UNKVAL 


0216 


0512 


4050 


STC XWORDl 


0217 


0513 


2025 


ADD OFFSET 


0220 


05 14 


4047 


STC XWORO 


0221 






/XVALS SAVED, NOW BUMP PTRS, MAYBE 


0222 


0515 


7005 


JMP PTHA 


0223 


0516 


7014 


JMP PTEAl /ONLY BUMP IF PTR AT XVAL 


0224 






/MUST ALSO RESTORE BOTH Y VALS 


0225 






/JUST IN CASE 1 NOT BUMPED 


0226 


0517 


0646 


LDF 6 


0227 


0520 


1000 


LDA 


0230 


0521 


2016 


2016 


0231 


0522 


4001 


STC 1 


0232 


0523 


06 47 


LDF 7 


0233 


0524 


1001 


LDA 1 


0234 


0525 


4025 


STC OFFSET 


0235 


0526 


1014 


LDA 14 


02 36 


0527 


4044 


STC UNKVAL 


0237 


0530 


0017 


COM 


0240 


0531 


4045 


STC 8UMPR 


0241 


0532 


0017 


COM 


02 42 


0533 


4046 


STC 8UMPR1 


0243 


0534 


6571 


JMP PTCM3 


0244 






/GET PAST SPECTRUM m SUBSUB 


0245 






/PTR 16 IN MIDDLE AT (PTSLIB « PTSCUD)XPARA 


0246 






/SET PTR 15 B6 TO « THIS, THEN 00 SUB ADV16 


0247 


0535 


1000 


PASTSP* LDA 


0250 


0536 


0000 


0 


0251 


0537 


4545 


STC PASTRT 


02 52 


0540 


2027 


ADD NUMPRA 


0253 


0541 


0017 


COM 


02 54 


0542 


4006 


STC 6 /-NUM PAR IN 6 


0255 


0543 


2012 


ADD 12 


02 56 


05 44 


04 70 


AZE I 


0257 


0545 


6000 


PASTRT, RETURN /IF NO POINTS LEFT, RETURN(16 AT LAST 


0260 


0546 


0017 


COM 


0261 


0547 


4025 


STC OFFSET /STORE DIFF IN TEMP 


0262 


0550 


2025 


PASTSl, ADD OFFSET 


0263 


0551 


0226 


XSK I 6 


0264 


0552 


6550 


JMP PASTSl 


02 65 


05 53 


0017 


COM 


0266 






/MOVE LOC IN AC. PTR16 AT LAST SPEC PT 


0267 


0554 


6415 


JMP B6FRB0 


02 70 


0555 


6626 


JMP MV16 /MOVE 16 TO SAFETY 



0271 


05 56 


65 45 




JMP PASTRT /EXI T 


0272 








/SUBROUTINE TO COMPARE POINTS 


0273 








/IP MATCH, OK, NO, BUMP COMMIS, CLEAR AC 


0274 


0557 


1000 


PTCMl, 


IDA 


0275 


0560 


0000 




0 


0276 


0561 


4630 




STC PTCMRT 


0277 


0562 


4045 




STC BUMPR 


0300 


0563 


4046 




STC BUMPRl 


0301 






/SET IS 


PTR AT Y VAL FLAGS 


0302 


0564 


6700 




JMP PTFALC /SET PTR6 TO - PARA 


0303 


0565 


7002 


PTCM2. 


JMP PTR14B 


0 30 4 


0566 


6415 




JMP B6FRB0 /GET NEXT LIB PARAMETER IN OFFSET 


0305 


0567 


6244 




JMP TRANS8 /GET TO NEXT UNK PTR IN UNKVaL 


0306 


0570 


4025 




STC OFFSET 


0307 


0571 


10 20 


PT CM 3, 


LDA I 


0310 


0572 


0030 




TLRNCE /ABSOLUTE TOLERANCE LOCATION 


0311 


0573 


2027 




ADD NUMPRA 


0312 


0574 


2006 




ADD 6 


0313 


0575 


4007 




STC 7 /IN PTR 7 


0314 


0576 


2051 




ADO FLAGWD 


0315 


0577 


0241 




ROL 1 


0316 


06 00 


0451 




APO 


0317 


0601 


67 53 




JMP PTCMA /IF PERCENT, GET CONVERTED TOLWO 


0320 








/ASSUME TOL WD SET, IN PTR7 


0321 


06 02 


1007 


PT CM 4, 


LDA 7 /CHECK UPPER L IM IT 


0322 


0603 


2044 




ADD UNKVAL /UNK + TOL > , =L 1 8 , OK 


0323 


0604 


0017 




COM 


0324 


0605 


2025 




ADD OFFSET 


0325 


0606 


0017 




COM 


0326 


0607 


0451 




APO 


0327 


0610 


6631 




JMP PTFAIL /FAILURE, UPPER, AC- 


0330 








/CHECK LOWER LIMIT 


0331 


0611 


1007 




LOA 7 /UNK«TOL<, =LIB, OK 


0332 


0612 


2025 




ADD OFFSET 


0333 


0613 


0017 




COM 


0334 


0614 


2044 




ADO UNKVAL 


0335 


0615 


0471 




APO I 


0336 


0616 


6631 




JMP PTFAIL /FAILURE LOWER* AC* 


0337 








/SUCCESS FOR THIS PARAMETER 


0340 


0617 


0226 




XSK I 6 


0341 


0620 


6510 




JMP PTCM6 /GET NEXT, SAVE LIB X VAL 


0342 








/POINT CHECKS 


0343 


0621 


1020 


PTCM5, 


LDA I /BUMP PTS CVO 


0344 


0622 


0001 


PONE. 


1 


03 45 


06 23 


2037 




ADD PTSCVD 


0346 


0624 


4037 




STC PTSCVO 


0347 


06 25 


10 32 




LOA I 12 


0350 


0626 


1033 




LDA I 13 


03 51 






/BUMP BOTH PT COUNTS 


0352 


0627 


0011 




CLR 


0353 


0630 


6000 


PTCMRT, 


RETURN /EXIT 


0354 








/FAILURE 


0355 


0631 


4062 


PTFA It, 


STC XNMTMP 


0356 


0632 


2006 




ADO 6 /IS THIS THE FIRST PARAMETER 


0357 


06 33 


20 27 




ADO NUMPRA 


0360 


0634 


0450 




A2E 


0361 


0635 


6770 




JMP PTFALP /NO, TRY TRY AGAIN 


0362 








/YES . DOES The CURVE WITH LESS POINTS HAVE THE LESSER 


0363 








/IF YES, THAN THIS IS A FAILURE, BUMP NUM MISSES 


0364 








/IF NO, BUMP CURVE WITH GREATER POINTS. TRY AGAIN 


0365 








/FLAGWD NEG IF UNK HAS MORE PTS 


03 66 








/XNMTMP NEG IF LIB HAS GREATER VALUE 


0367 


06 36 


20 62 


PTFAQ, 


ADD XNMTMP 



VALUE 



0370 


06 37 


16 40 


0371 


0640 


0051 


0372 


0641 


0451 


0373 


0642 


6743 


03 74 






0375 


06 43 


1000 


0376 


06 44 


0062 


0377 


0645 


0451 


0400 


0646 


6705 


0401 






0402 


0647 


0226 


0403 


0650 


6652 


0404 


0651 


6654 


0405 


0652 


701 4 


0406 


0653 


6647 


0407 


0654 


6700 


0410 


0655 


4046 


0411 


0656 


0232 


0412 


0657 


0456 


0413 


0660 


6665 


0414 


0661 


6415 


04 15 


06 62 


62 44 


0416 


0663 


4025 


0417 






0420 


0664 


6571 


04 21 


0665 


0072 


0422 


0666 


7776 


0423 


0667 


2051 


04 24 


06 70 


04 51 


0425 


0671 


6621 


0426 


0672 


1000 


0427 


0673 


0013 


04 30 






0431 


0674 


0017 


0432 


0675 


20 36 


0433 


0676 


4036 


043 4 


0677 


6621 


0435 






04 36 


07 00 


10 00 


0437 


0701 


0027 


0440 


0702 


0017 


0441 


0703 


4006 


0442 


0704 


60 00 


0443 






0444 


07 05 


02 26 


0445 


07 06 


6710 


04 46 


07 07 


67 12 


04 47 


0710 


70 05 


0450 


0711 


6705 


0451 


0712 


6700 


0452 


0713 


4045 


0453 


0714 


1034 


04 54 






0455 


0715 


4044 


0456 


0716 


0233 


04 57 


0717 


65 71 


04 60 






0461 






0462 






0463 


0720 


2027 


0464 


0721 


1460 


0465 


0722 


0002 


04 66 


07 23 


67 32 



PTFALDi 



BCD 

riAGWD /EXCLUSIVE OR IF NEC EITHER LIB OR UNK HAS 
APO /LESS VALUE AND LESS PTS , ERROR 

JMP PTFALB /BUMP ERROR 

/BUMP PAST POINT IN SPEC WITH LESSER VALUE. HAY NOT BE ERROR 
LDA 

XNMTMP 
APO 

JMP PTFALH 

/LIB HAS LESSER VALUE 

XSK I 6 



/MAYBE BUMP LIB PTR 

/RESTORE PTR 6 TO NUH PARA 
/RESET L IB BMP FLAG 



/LIB OVER 



/PROCESS MORE OR 

/OVER, RESET PTR TO SKIP, BUMP ERROR 



/IF UMK SMALLER 



JMP ,*2 
JMP PTFALE 
JMP PTHAl 
JMP PTFALD 
PTFALE * JMP PTFALC 
STC BUMPRl 
XSK I 12 
SKP 

JMP YQl 

JMP B6FRB0 

JMP TRANS8 

STC OFFSET 
/NEW L IBX VAL SAVED 

JMP PTCM3 
YQl, SET I 12 

PMl, 7776 

ADD FLAGWD 

APO 

JMP PTCM5 
LDA 
13 

/ALL REMAINING UNK PTS ARE ERRORS 
26, COM 

ADD COMMIS 

STC COMMIS 

JMP PTCM5 

/RESTORE PTR 6 
PTFALC , LDA 

NUMPRA 

COM 

STC 6 

JHP 0 

/UNK HAS LESSER VALUE 
PTFALH , XSK I 6 

JMP .+2 

JMP PTFA LJ 

JMP PT2A 

JMP PTFALH 
PTFALJ* JMP PTFALC 

STC BUMPR 

LDA I 14 

/SAVE NEW UNK VAL-FRST PARA OF NXT PT 

STC UNKVAL 

XSK I 13 /CURVE OVER? 

JMP PTCH3 /NO, JUMP NEW COMPARE 

/YES, MOVE LIB PTR TO Y PARA 
/IF NOT ALREADY THERE 
/AND A 2 PARA INST 
PTFALK, ADD NUMPRA 

SAE I 



/BUMP 1 WO FOR EACH PTR 
/GET NEXT UNK LOG, MAYBE 

/RESTORE PTR6 TO NUM PARA 
/RESET FLG 



JMP PTFALL 



/IF 1 PARA#OUT 



0467 
(9470 
0471 
0472 
0473 

04 74 
0475 
0476 
0477 
0500 
0501 
0502 
0503 
0504 
0505 

05 06 
0507 
0510 
0511 
0512 
0513 
0514 
0515 
0516 
0517 
0520 
0521 
0522 
0523 
0524 
0525 
0526 
0527 
0530 
0531 
0532 
0533 
0534 
0535 
0536 
05 37 
05 40 
0541 
0542 
05 43 
0544 
05 45 
0546 
0547 
0550 
05 51 
0552 
0553 
0554 
0555 
05 56 
0557 
0560 
0561 
0562 
0563 
0564 
05 65 



0724 
07 25 
07 26 
0727 
0730 
0731 
0732 
07 33 
0734 
0735 
0736 
0737 
07 40 
0741 



0046 
0451 
6732 
6415 
6244 
0011 
00 73 
7776 
2051 
0471 
6621 
10 00 
0012 



07 42 66 74 



0743 
0744 
0745 

0746 
0747 
0750 
0751 
0752 



1020 
0001 

2036 
4036 
2622 
2037 
40 37 
6000 



0753 
0754 
0755 
0756 
0757 
0760 
0761 
07 62 
0763 
0764 
0765 
0766 
0767 

07 70 
0771 
0772 
0773 
0774 

0775 
0776 
0777 

1000 
1001 
1002 
1003 
10 0 4 

1005 
1006 
1007 
1010 
1011 
1012 
1013 



/IF LIB ON Y,OUT 
/ELSE MOVE LIB 



/XT LIB SMALLER 



10 20 
0052 
2027 
2027 
2006 
2006 
1620 
4000 
4010 
2025 
1250 
1047 
6000 

10 00 
0047 
4025 
2050 
4044 

2047 
0017 
2050 
4062 
6636 
1034 
4044 
6000 

1000 
0000 
5013 
2045 
0471 
7002 



LDA 

BUMPRl 
APO 

JMP PTFALL 
JMP B6rRB0 
JMP TRANSB 
PTFALL* CLR 

SET I 13 
7776 

AOO FLAGWO 
APO I 
JMP PTCM5 
LDA 
12 

/ALL REMAINING LIB PTS ARE ERRORS 
JMP 26 

/FAILURE, AT LAST PARA 
PTFALBi LDA 1 /INCREMENT MISSES, EXIT 
1 

ADD COHMIS 
STC COMMIS 
AOO PONE 
ADO PTSCVD 
STC PTSCVD 

/CONVERT PERCENT TO ABSOLUTE TOL FOR THIS PT 
/LIB PT IN OFFSET 
PTCMA, LDA I 
PRCTl 

ADO NUMPRA 
AOO NUMPRA 

ADD 6 
ADO 6 
BSE I 
4000 
STC 10 
ADD OFFSET 

MUL 10 /TOLERANCE IS IN AC 
ST A 7 /STORE IN TOL WD 
JMP 0 /JUMP LIMIT CHECKING 
/FAILURE ON Y, BMP APPROPRIATE PT 
PTFALP » LDA 

XMORD 

STC OFFSET 
ADD XWOROl 
STC UNKVAL 
/GET XTMP NEG IF LIBX>UNKX 
AOO XWORO 
COM 

ADO XWORDl 
STC XNMTMP 

JMP PTFAQ /SAVE X VALS 

PTR148, LDA I 14 

STC UNKVAL 
JMP 0 

/BUMP ONLY UNK PTR MAYBE 
PTZA, LDA 
0 

STC PT2AR 
ADD 8UMPR 
APO I 

JMP PTR14B 



/PTR 10 HAS SINGLE PREC PARA MULTIPLIER 
/4000 FOR FRACTIONAL MULT 



PTHAR. 0 



05 66 






/BUMP 


ONLY LIB PTR, 


0567 


1014 


1000 


PT2A1. 


LOA 


0570 


1015 


0000 




0 


0571 


1016 


5025 




SIC PTzfARl 


0572 


1017 


2046 




ADO BUMPRl 


0573 


1020 


0451 




APO 


05 74 


1021 


7025 




JMP PTHARl 


05 75 


1022 


6415 




JMP B6FRB0 


0576 


1023 


62 44 




JMP TRANS8 


^311 


1024 


4025 




STC OFFSET 


0600 


1025 


0000 


PTZARl 


* 0 


0601 








EJECT 



0602 

06 03 

0604 

0605 

0606 

0607 

0610 

06 U 

0612 

0613 

0614 

0615 

0616 

0617 

0620 

0621 

06 22 

0623 

0624 

06 25 

0626 

0627 

0630 

0631 

0632 

06 33 

0634 

06 35 

06 36 

0637 

0640 

0641 

0642 

06 43 

0644 

0645 

0646 

0647 

0650 

06 51 

0652 

0653 

0654 

06 55 

0656 

0657 

0660 

06 61 

0662 

06 63 

06 64 



10 26 
10 27 
1030 
10 31 
1032 
1033 
1034 
1035 

1036 

1037 
1040 
1041 
1042 
10 43 
10 44 
1045 
1046 
1047 
1050 
1051 
1052 
1053 

10 54 
1055 
10 56 
10 57 
10 60 
1061 
10 62 
1063 
10 64 
1065 
1066 
1067 
1070 
1071 
1072 

10 73 
1074 

10 75 
1076 
1077 
1100 
1101 
1102 
1103 



0017 
4007 
2000 
5051 
0050 
0006 
1046 
1066 

1010 

2060 
1050 
0011 
2061 
1206 
4062 
1210 
0227 
70 36 
0011 
60 00 
0000 
0000 

64 41 
7102 
06 46 
10 20 
70 51 
1040 
2017 
1000 
00 36 
6415 
6430 
0644 
3053 
1040 
36 27 

10 20 
7603 
06 46 
1040 
2001 
0604 
7475 
0606 
7114 



/SUBROUTINE TO MULTIPLY NUH IN XNM8UF BY ACi STORE IN PTR 6 
XNUM, COM 

STC 7 /PTR 7 HAS « 
ADD 0 

STC XNMRET /SAVE RET 

XNUM A, SET 10 
6 

ST A 6 

STA I 6 /CLEAR BUFF INIT 
/PTR 10 HAS UPPER ORQERi 
XNUM8, LDA 10 

XNMBUF 

10 /GET UPPER ORDER 



PTR 6 LOWER 



ADD 
STA 
CLR 
ADD 
LAM 
STC 
LAM 
XSK 



XNMRET, 
LBDATA, 



LB PR Fi 



LBPRG. 
LBPRZ. 



XNMBUF*! 

6 

XNMTHP 
10 /GET 
I 7 
JMP XNUMB 
CLR 

RETURN /ELSE OUT 
0 



/GET LOWER ORDER , CLEAR 
CARRY IN UPPER ORDER 

/IF MORE MULT. 00 AGAIN 



AC 



/SUB TO PRINT OUT MATCHING LIB SPECS 
JMP MATCH /OO CURVES MATCH 

JMP LBPRH /NO MATCH 

LDF 6 /MATCH, FILL IN NUM PT S MISS 
LDA I 

LBDATA*5777 
STA 

2017 /SET PTR 17 IN B6 DECML ROUT 
LDA 

CO MM IS 
JMP 86FRB0 
JMP OECML 
LOF 4 

ADD LBDATA+1 
STA 

TYAN1C*2000 /STORE MISSES 

/LINE COMPLETE, PRINT 

LDA I 

TYANS*5777 
LOF 6 
STA 

2001 /SET PTRl IN PRINTOUT 
LIF 4 
JMP L8PR4 
LIF 6 
JMP LBPRX 
EJECT 



/PRT LN.GET NXT SPEC 
/JUST GET NEXT SPEC 



0665 








/START OF INITIALIZE OORRETTE 


06 66 


1104 


0604 


DORART, 


LIT 4 /RETURN TO CHOICE OPT 


0667 


1105 


7135 




JMP STRTC 


0670 


1106 


0646 


DORAGO* 


Lor 6 


0671 


1107 


40 35 




STC PTSUNK 


06 72 


1110 


1020 




LDA I 


06 73 


1111 


1777 




1777 


06 74 


1112 


40 25 




STC OFFSET 


0675 


1113 


1020 




IDA I 


0676 


1114 


4400 




4400 


0677 


1115 


1040 




ST A 


0700 


1116 


0075 




75 


0701 


1117 


1040 




ST A 


0702 


1120 


0076 




76 


07 03 


1121 


40 77 




STC 77 /SET INITIAL UNK VAL TO 


07 04 


1122 


7124 




JMP CLRCRV /CLR UNK CURVE 


0705 


1123 


7137 




JMP DORGOl 


0706 


1124 


10 00 


CLRCRV, 


LDA 


0707 


1125 


0000 




0 


0710 


1126 


51 36 




STC CLRT 


0711 








/CLR UNK CURVE LOC 100«377 


0712 


1127 


0061 




SET I 1 


0713 


1130 


0077 




77 


0714 


1131 


0062 




SET I 2 


0715 


1132 


7477 




-300 


0716 


1133 


1061 


CLRMOR 1 


STA I 1 


0717 


1134 


0222 




XSK I 2 


0720 


1135 


7133 




JMP CLRMOR 


0721 


1136 


6000 


CLRT, 


RETURN 


0722 


11 37 


0063 


DORGOl , 


SET I 3 


0723 


1140 


4064 




4064 


0724 








/READ APPROPRIATE NUM BLKS 


0725 


1141 


1000 




LOA 


0726 


1142 


0024 




NUHPT0 


0727 


1143 


2666 




ADD PMl 


0730 


1144 


0350 




SCR 10 


0731 


1145 


2622 




ADD PONE 


0732 






/SET NUH BLKS>NUH PTS»256 


0733 


1146 


4023 




STC PARDAT*3 


0734 








/LEGAL IT Yl - N UM BLKS *S TBLKS<77 7 


0735 








/ASSUME NUHPTS<6000 


0736 


1147 


2023 




ADD PAROAT'^3 


0737 


1150 


2022 




ADD PARDAT*2 


07 40 


1151 


2666 




ADD PMl 


0741 


1152 


1560 




BCL I 


0742 


1153 


0777 




777 


0743 


1154 


04 70 




AZE I 


07 44 


1155 


7160 




JMP .♦3 


0745 






/ERROR . 


DO NOT DO READ 


07 46 


1156 


0604 




LIF 4 


0747 


1157 


7261 




JMP STD0R6 


0750 








/DO READ 


0751 


1160 


0002 




PDP 


0752 








PMOOE 


0753 


1161 


6201 




CDF 0 


0754 


1162 


6212 




GIF 10 


0755 


1163 


4464 




JHS I QRD 


0756 


1164 


0020 




PARDAT 


0757 


1165 


6141 




LINC 


07 60 








LMODE 


0761 


1166 


06 46 




LOF 6 


0762 


1167 


0065 


D0RG03, 


SET I 5 


0763 


1170 


0077 




77 /INITIALIZE DATA PTR 



fie 



017 Ad 


1171 
X X ' X 


1020 




L D A T 


Oil ft^ 


1172 

X X f c 


17 77 




17 77 


07 fifs 

\U 1 wO 








/INITIALIHE DORETTE CALL LOCATIONS 




11 73 

XX / V 


9 519 4 




Ann MUMP T0 


Di 7 7 01 


1174 
XX / *♦ 


1 Oi 40( 
XIO •tB 




QT A 


r3l 7 71 


i 1 7S 

XX / 9 


OtfU / X 






07 72 


1 H 7A 
11/0 


(7101 i ■( 

WW X 1 






0773 


11 77 


10 40 




CT A 


01 7 -J ^ 

0 7 7^ 


1200 


A 01 7 O 






0775 


1201 


*»» 09 






0776 


1202 


10C0 




LU A I 


0777 


A n Hit. 
Ic 0O 


00 41 




CP O i 
n X 


1000 


1204 


10 40 




blA /bUALc.-l 


1001 


1205 


00 /3 




YSCALE>2000 


1002 


1206 


04 l9 


D0RG04 , 


JMP 86FRB0 


10 03 


12 07 


60 61 




JMP INTDRA /iNITIALiHE DORA, READ 


1004 


1210 


0646 


PROCMD* 


LDF 6 /PROCESS COMMAND 


1005 


12 11 


52 21 




STC DQRG08 


100 6 


1 £ i c 


d OJ A 
sU So 0 0 




SET I 3 /IS 8RT SPOT ON CURVE 


< 0! 01 7 


x<: 1 o 


4 (?) A c; 
*T sO 0 9 




4065 /IF NOT ERROR 5 


10 10 




X)0]0\0 




LDA 


1011 


1 X 


7 7 71 




CURCNT+2000 


1012 


4.C XO 


014 ^ i 
9 X 




APO 


10 


■i O 1 7 

Ic 1 ' 


0101 1 A 




NOP 


1014 






/JMP !LLG ir < 512 PIS 


10 1^ 


1 9 901 
xc <CtO 


1 01 901 
X» CtO 




LDA I /YES 




1 9 91 

Xc £>X 


0101 oin 


D0RG08, 


0 /RESTORE AC» PROCEED 


4 CI i 7 
10 1/ 








/COMMAND CHA R IN A C 


XM? CIO 


X c c 


ViQS A1 

ox 


DORGOSi 


SET I 1 






1 9 401 
Xc *Tiy 




INTTBL-1 /INTERPRETATION TABLE 




19 94 

Xc 


010 A9 




SET I 2 


1 01 0"%. 


Xc &9 


77 A A 




• 11 /«NUM LEGAL COMMANDS 




1 p 9ft 

X c. t. O 


JU U vJ 




SET I 3 




1 9 ?7 


72 52 




JMPTBL ^6000 /JUMP TABLE 


1 0I9A 


1 5 3(7! 
X c w fc* 


14 61 

•i ^ w X 


D0RG06, 


SAE I 1 /IS COMMAND SAME AS AC 




19 11 
X i& V X 


7233 




JMP 00RG07 


1 (7{ '^^ (71 
X ju O SO 


i p < 9 

X c "J <- 


60 0 3 




JMP 3 /YES, JUMP PROCESSING ROUTINE 


Xl£' wX 


19 33 


0223 


D0RG07, 


XSK I 3 


1 ^ .^9 


19 ki4 


0222 




XSK I 2 




1 9 35 

X£ w-* 


72 30 




JMP D0RG06 /END, NO JUMP BACK 




1 9 36 

X£ wv 


0063 




SET I 3 


1 01^*5 

Xt) "OW 


1237 


4062 




4062 /ERR CD 2 


1 0!TA 


X " 


7764 




JMP ILLG /YES, JUMP ILLEGAL 


1 01 T7 








/INTERPRETATION TABLE 


104 0 


12 41 


03 05 


INTTBLi 


306 /F 


X *+ X 


12 42 


02 55 




255 /- 


1 014 9 
X Kf M c 


1243 


0253 




253 /+ 


1 0143 
A iO "» w 


12 44 


0302 




302 /B 


1 Ot 44 


19 45 


03 1 7 




317 /O 


1 0) 4^ 
Xw 79 


1 9 4 A 
X " " 


(?l3!aS 
k; so > 




305 /E 


1046 


1 ? 47 


0330 




330 /X 


1047 


1250 


0320 




320 /P 


1050 


1251 


0325 




325 /U 


1051 








/JUMP TABLE 


1052 


1252 


7264 


JMPTBLi 


JMP Fl 


1053 


1253 


7371 




JMP MlNUSl 


1054 


1254 


7420 




JMP PLUSl 


1055 


1255 


7423 




JMP 81 


1056 


1256 


7467 




JMP 01 


1057 


1257 


7503 




JMP El 


1060 


1260 


7510 




JMP XI 


1061 


1261 


7525 




JMP PRNTl 


1062 


1262 


7603 




JMP Ul 



1063 








/SUBROUTINE 


TO 


FILE POINT VALUE 


1064 


1263 


0000 


FTEMp, 


0 /TEMP 




1065 


1264 


1020 


Fl, 


IDA I /HAVE 


TOO MANY PTS BEEN FILED 


1066 


1265 


0374 




374 






1067 


1266 


0063 




SET I 3 






10 70 


12 67 


40 67 




40 67 




/YES, ERR OR 7 


1071 


1270 


0017 




COM 






10 72 


12 71 


2005 




ADD 5 






1073 


1272 


0471 




APO I 






10 74 


1273 


7764 




JMP ILLG 




/YES, ILLEGAL 


10 75 








/N0» GET X 


VALUE SUBTRACT OFFSET 


10 76 


1274 


06 44 




LDF 4 






1077 


1275 


1000 




LO A 






1100 


1276 


00 25 




OFFSET 






1101 


1277 


0017 




CO M 






1102 


13 00 


11 00 




AD A 






1103 


1301 


2022 




2022 






1104 


1302 


0646 




LDF 6 






1105 


1303 


5263 




ST C FTEMP 




/SAVE 


1106 


1304 


1000 




LDA 




/IF FRST PT,SKIP COMPARE 


1107 


1305 


0005 




5 






1110 


1306 


1460 




SAE I 






1111 


1307 


0077 




77 






1112 


1310 


0456 




SK P 






111 3 


1311 


7331 




JMP F2ZXQ 






1114 


1312 


0011 




CLR 






1115 


1313 


0046 




SET 6 






1116 


1314 


0005 


P0S5, 


5 






1117 


1315 


0226 




XSK I 6 






1120 


1316 


2027 




ADD NUMPRA 






1121 


1317 


0017 




COM 






1122 


1320 


2006 




ADD 6 /IS 


X 


VALUE LESS THAN LAST X VALUE 


1123 


1321 


4006 




STC 6 /IN 


PTR 6 


1124 


1322 


0063 




SET I 3 






1125 


1323 


4070 




4070 






1126 






/ERR CD 


8 






1127 


1324 


1006 




LDA 6 






1130 


1325 


00 17 




COM 






U3i 


1326 


3263 




ADD FTEMP 






-13 2 


1327 


0451 




APO 






. 133 


1 330 


7764 




JHP ILLG 




/YESi ERROR 


\ 134 


1331 


1000 


r2HXQ, 


LDA 






1135 


1332 


1263 




FTEMP 






1136 


13 33 


1065 




ST A I 5 /NO 


1 STORE VALUE 


1137 








/MORE THAN 


ONE 


PARAMETER 


1140 


1334 


1020 




LOA I 






1141 


1335 


0002 




2 






1142 


13 36 


1440 




SAE 






1143 


1337 


0027 




NUMPRA 






1144 


1340 


7342 




JMP F3 




/IF 1 IN AC* BUMP PTS 


1145 


1341 


7351 




JMP F2 




/IF 2 PARA*PROC Y VAL 


1146 


1342 


1000 


F3, 


LDA 




/BMP NUM UNK PTS 


1147 


1343 


0622 




PONE 






1150 


1344 


2035 




ADD PTSUNK 






1151 


1345 


40 35 




STC PTSUNK 






1152 


13 46 


6415 


KEEP DR , 


JMP B6FRB0 




/REFRESH DORETTE 


1153 


1347 


6075 




JMP CLLDRA 






1154 


1350 


7210 




JMP PROCMD 




/PROCESS NEXT CHAR 


1155 






/STORE 


YVAL=CORVAL* 


OFFSET 


1156 


1351 


0016 


r2, 


NOP 




/REP LACE WITH SNS 5 


1157 






/IF FREE STANDING MODE 


DESIRED 


1160 


1352 


7356 




JMP Gl 






1161 






/YES,CORVAL=OFFSET= 


KNOB 5X21 (YSCL«1> 



1162 

11 63 

1164 

11 6t? 

1166 

1167 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

12130 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

12 27 

1230 

1231 

1232 

1233 

1234 

12 35 

12 36 

1237 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1250 

12 51 

1252 

1253 

1254 

12 55 

1256 

1257 

1260 



13 53 
13 54 
1355 

13 56 
13 57 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1370 

1371 
1372 
1373 
1374 
1375 
1376 
1377 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1410 
1411 
1412 
1413 
1414 
1415 
14 16 
1417 

1420 
1421 
1422 

1423 
1424 



74 43 
1065 
7342 

1000 
6072 
0016 
0644 
1100 
2023 
0646 
7354 
7436 
7433 
0000 

1000 
0622 

1100 
6073 
1040 
1370 
0063 
1366 
1103 
0451 
7413 
1023 
3370 
0471 
7413 
0011 
3370 
7415 
1003 
0017 
1040 
60 73 
7206 

1020 

7776 
7373 

0644 
0016 



1425 7436 



1426 
1427 

1430 
1431 
1432 
1433 
1434 
1435 

1436 
1437 
1440 
1441 



r4, JMP Rl 

rS, STA I 5 /STORE 

JMP F3 

/SS5 OFF, STORE C ORVA L-OFFSET 
Gl, LOA 

YOFFST*2000 

NOP 
LOF 4 
ADA 
2023 
LDF 6 
JMP F5 

YSCRNG, -341 /^SCR 1 

^344 /«SCR 4 

YSCTMP. 0 

/SUBROUTINE TO SCALE DISPLAY SMALLER BY HALF 
MINUSlt LOA 

PONE /ADO 1 TO YSCALE 
M0RP2, ADA 

YSCAlE:*2000 

STA 

YSCTMP 
SET I 3 
YSCRNG 
M0RP3, ADA 3 
APO 

JMP M0RP4 
LOA I 3 
AOO YSCTMP 
APO I 
JMP M0RP4 

aR 

ADD YSCTMP 
JMP H0RP5 
M0RP4, IDA 3 

COM 

HQRP5, STA 

YSCA Lt *2 00 0 

JMP D0RG04 /INITIALISE OQRA 

/SUBROUTINE TO SCALE DISPLAY BIGGER BY DOUBLE 
PLUSl, LOA I 
7776 

JHP M0RP2 

/SUBROUTINE TO REDEFINE BASELINE 

NOP /REPLACE WITH SNS 5 IF FREESTANDING 

/MODE OF DISPLAY DESIRED 
JMP CI 

/yes: OFFSET=CORVAL^<KNOB5)X2: (YSCL-1) 
82 I JMP Rl 



/ADD -SCR 1 
/ERROR 



/ERROR TOO HIGH 
/OK. CHANGE SCALE 
/ERR,STR LIMIT 



7443 

0017 COM 

1100 ADA 

2023 2023 /CORVAL 

0646 B3# LDF 6 

1040 STA 

6072 YOFFST*2000 /STORE Y OFFSET 

7206 JMP D0RG04 

/NO SS5, YOFFSET=«C0RVAL 

1000 Cli LDA 

2023 2023 /CORVAL 

0017 COM 

7432 JMP B3 

/SUB TO ROTATE KNOB 5 VAL 1 LFT FOR EVERY 



DIG IN YSCL-1 



1261 


14 42 


0000 


R0 1 


0 




12 62 


1443 


0105 


Rl » 


FRES AM 


/SAM 5 


1263 


14 4 4 


5442 




STC R0 




1264 




\0O HO 




LOT 6 




1265 


14 46 


2666 




ADD PMl 




12 66 


14 47 


11 00 




AD A 




1267 


14!?0 


6073 




YS CALE ■♦'2000 




1270 


1451 


1560 




BCL I 




1271 


14 52 


77 70 




77 70 




12 72 


14 53 


0017 




CO M 




12 7 3 


1454 


4004 




ST C 4 


/« YSCL *1 


1274 


1455 


2000 




ADO 0 




1275 


1456 


5462 




STC R9 




1276 


1457 


3442 




ADD R0 




1277 


1460 


0204 




XSK 4 


/NO ROTATES 


1300 


1461 


7463 




JMP R2 




1301 


1462 


6000 


R9 t 


RETURN 




1302 


14 6 3 


02 41 


R2 , 


ROL 1 




13 03 


14 6 4 


02 24 




XSK I 4 




130 4 


146 5 


7463 




JMP R2 




13 05 


14 66 


62 




jHP R 9 


/OVER 


1306 








/S UBROUT I Nt 


TO SET UP OFFSti 


1307 


14 67 


1000 


01 1 


LD A 




1310 


1470 


0 005 




5 




1311 


14 71 


0063 




SE T I 3 




1312 


14 72 


40 63 




40 63 




1313 


14/5 


1460 




SAE I 




1314 


14 74 


0077 




77 




13 15 


1475 


7764 




JHP ILLG 


/IF PTS HAVE ALREADY BEEN STOR ED« I LL EG AL 


1316 


1476 


06 4 4 




LDP 4 




1317 


14 7/ 


1000 




IDA 




1320 


1500 


2022 




2022 




1321 


1501 


4025 




STC OFF bE T 


/ I r NO I » S T 0 HE , JUMP RLrRtbH uuNLTlL 


1322 


1502 


7o46 




J MP KEEP UK 




13 23 








/SUBROuT I N E 


TO ERASE ALL PHEVIUUS UNKNOWN r To 


1324 


1503 


7124 


El 1 


JMP CLRCRV 


/CLEAR UNKNOWN CURVE 


132 5 


1504 


0065 




SE T I 5 /Rt 


i N n I AL Ic E CURVE PTH 


1326 


1505 


00 77 




77 




1327 


1 5 06 






STC P T SUNK 


/ bE 1 N UM P i b =0 


13 30 


15 07 


7o 46 




JHP KEEPDH 


/HEFRLbH DUntTTL 


13 31 








/SUBROUT 1 Nt 


TO EXIT DORETTE 


13 32 


15 10 


1000 


XI t 


LDA 




"t T 7 

1 3'33 


1511 


00OP 




PTSUNK 




13 34 


1512 


0063 




SET 1 3 




1335 


1513 


^06 7 




4067 




1336 


1514 


04 70 




A2E I 




13 37 


1515 


71 04 




JMP OORART 


/IF NO POINTS. EXIT, 


1340 


1516 


00 1 7 




COM 




1341 


1517 


o ol 4 




ADD P0S5 




1342 


1520 


0471 




APO I 




134 3 


1521 


7 76 4 




JHP ILLG 


/IF LESS THAN 5 PTS, ILLEGAL 


1344 








/ir MORE THAN 5 POINTS, ADD SPECTRUM 


13 45 








/INST NAME 


IN INSTNUM, SPEC IN TY07A OF B7 


1346 


1522 


0604 




LIT 4 




1347 


1523 


6707 




JMP X2 /GO 


TO B4 PROCESSOR 


1350 








/SPECTRUM ADDED, BLOCK 0 WRITTEN OUT 


1351 


1524 


7104 


X4 . 


JMP OORART 


/RETURN TO DORETTE CALLER 


1352 








/SUBROUTINE 


TO PRINT VALUE OF POINTS ALREADY STORED VIA DORETTE 


1353 


1525 


0646 


PRNTl. 


LDF 6 




13 54 


15 26 


05 00 




lOB 




1355 


1527 


6041 




6041 


/TSF-CLR PRNT BUFF 


1356 


1530 


7526 




JMP ,-2 




1357 


1531 


1000 




LDA /INITIALIZE PRINT ROUTINE TYCNT 



v.. 



1360 


1532 


0035 




PTSUNK 


13 61 


1533 


10 40 




ST A 


1362 


15 34 


2056 




NUMPTS*2000 /TELL NUM PTS TO PRINT 


1363 


1535 


6415 




JMP B6FRB0 


1364 


1536 


6531 




JMP TYB /GET HEADER 


1365 


1537 


0646 




LOF 6 


13 66 


15 40 


10 20 




LDA I 


1367 


1541 


2077 




2077 


1370 


1542 


1040 




STA 


1371 


1543 


2016 




2016 /GET DATA PTR TO UNK. NOT LIB 8LK 


1372 


1544 


1020 




LOA I 


1373 


1545 


7234 




JMP P4 


1374 


1546 


1040 




STA 


1375 


1547 


27 66 




P2*2000 /BUMP UNK. NOT LIB PTR 


1376 


1550 


1000 




LOA 


1377 


1551 


0027 




NUMPRA 


1400 


1552 


1040 




STA 


14 01 


15 53 


20 47 




PRMTRS+2000 /TELL NUM PARA 


1402 


1554 


1020 




LOA I 


1403 


1555 


6734 




JMP P5 


1404 


1556 


06 44 




LOF 4 


1405 


1557 


1040 




STA 


1406 


1560 


2005 




2005 /SET UP HtTURN TO ro IN 84 


1^07 


1561 


0011 




CL R 


1410 


1562 


0606 




LI F 6 /JUMP PRINT ROUTINE 


1411 


1563 


6735 




JMP TYCNT 


1412 








/PRINT ROUTINE ACCOMPLISHED* REFRESH DOHETTL 


1413 


1564 


7346 


P6 , 


JMP KEEP OR 


1414 








/TEXT PROC INITIALIZATION SUB 


1415 


1565 


5571 


U1A» 


STC UlAA 


1416 


1566 


2000 




ADD 0 


1417 


1567 


5602 




STC UlARET 


1420 


1570 


1020 




LOA I 


1421 


1571 


0000 


Ul AA # 


0 


1422 


1572 


6415 




JMP B6FRB0 


14 23 


1573 


72 37 




ikjrv t K\t^ Tiki a a 

JMP GETANS /ANS IN LOG 65 


1424 


1574 


0066 




SE T I 6 


14 25 


15 75 


24 00 




BU F8 0+ 20 00 


14 26 


15 76 


0067 




SE T I 7 


1427 


1577 


77 74 




77 74 


1430 


1600 


6415 




JMP B6FR80 


1431 


1601 


7310 




JMP BnULT /GtT rnUl/taotU IN Un iW »u 


14 32 


1602 


6000 


Ul ARET 1 


RE TURN 


14 33 








/SUBROUTINE TO COMPARE UNK SPECTRUM WITH LIB 


1434 








/OUTPUT MATCHtb TO TTt 


1435 


1603 


1020 


Ul » 


LOA I 


1436 


1604 


2400 




BUFB0*2000 


14 37 


1605 


06 45 




LOF 5 


1440 


1606 


1040 




STA 


1441 


1607 


2022 




AN SW EH +2 000 /oET UP AN o oU rr Af uU U 05 U 


14 42 


16 10 


0063 




SE T I 3 


1443 


1611 


4062 




4062 


1444 


1612 


0011 




CLR 


1445 


1613 


40 36 




STC COMMIS 


14 46 


1614 


1020 




LOA I /DISPLAY ALLOWABLE ERROR TOL 


1447 


1615 


0336 




0SP2P1 


1450 


1616 


7565 




JMP UlA 


1451 








/PROC NUM IN AC 


1452 








/GET PERCNT OR ABSOL 


1453 


1617 


1460 




SAE I 


1454 


1620 


0001 




1 


1455 


1621 


76 27 




JMP U2 


1456 
• 








/I, PERCENT 



1457 


1622 


1000 




LOA 


14 60 


1623 


0051 




FLAGWO 


1461 


1624 


1620 




BSE I 


14 62 


16 25 


2000 




2000 /SET BIT 1 FLAGWD 


1463 


1626 


7636 




JMP U3 


14 64 


1627 


1460 


U2 I 


SAE I 


1465 


1630 


0002 




2 


1466 


1631 


7764 




JMP ILLG /IF NOT 1, 2 ILLEGAL 


1467 


1632 


1000 




LOA 


1470 


1633 


0051 




FLAGNO 


1471 


1634 


1560 




BCL I /ABSL. CLEAR BIT 


1472 


1635 


2000 




2000 


1473 








/PROCESS PARAMETER TOLERANCES 


14 74 


1636 


0066 


U3 , 


SET 1 6 


1475 


1637 


2401 




BUFB0*2001 


14 76 


1640 


4051 




SIC FLAGND /PROCESS PARAMETER 1 


1477 


1641 


7660 




JMP UA 


1500 








/VALUE OCTAL OR DECIMAL IS IN AC 


1501 


1642 


0451 




APO 


15 02 


16 43 


7764 




JMP ILLG /IF NEGATIVE, ERROR 


1503 


1644 


4030 




STC TLRNCE /ELSE STORE PRA 1 


1504 


1645 


2027 




ADD NUMPRA 


1505 


1646 


1460 




SAE I 


1506 


1647 


0002 




2 


1507 


1650 


7700 




JMP U4 /IF ONE PARA, GO ON 


1510 


1651 


0066 




SET I 6 


1511 


1652 


6403 




BUFB0*6003 


1S12 


1653 


7660 




JMP UA /ELSE PROCESS SECOND 


1513 


1654 


0451 




APO 


1514 


1655 


7764 




JMP ILLG /IF NEG, ERROR 


1515 


1656 


4031 




STC TLRNCE^l /ELSE STORE PARA2 


1516 


1657 


7700 




JMP U4 


1517 








/PROCESS PARAMETER TOLERANCE, SUB 


1520 


1660 


2000 


UA , 


ADD 0 


1521 


1661 


5674 




STC UARET 


1522 


1662 


0067 




SET I 7 


1523 


1663 


7773 




7773 


15 24 


16 64 


2051 




ADD FLAGWD 


X525 


1665 


0241 




ROL 1 


1526 


1666 


0471 




APO I 


1527 


1667 


7675 




JMP UB /IF PERCNT, ONLY 2 DIG ALLOWED 


1530 


1670 


0227 




XSK I 7 


1531 


1671 


0011 




CLR /ACe*0 


15 32 


16 72 


6415 


uc » 


JMP B6FR80 


1533 


1673 


7310 




JMP BMULT /DO CONVERT 2 DECIMAL 


1534 


1674 


6000 


UARET, 


RETURN 


1535 


1675 


0011 




CLR 


15 36 


1676 


0016 




NOP 


15 37 


1677 


7672 




JMP UC /DO CONVERT 3 ABSOLUTE DEC 


1540 


1700 


2051 


U4, 


ADO FLAGWD 


1541 


1701 


0241 




ROL 1 


1542 


1702 


0471 




APO I 


1543 


1703 


7726 




JMP U7 /IF ABSOLUTE, GO ON 


1544 








/PERCENT, CONVERT TO ABSOLUTE 


15 45 


1704 


1000 




LDA 


1546 


1705 


00 40 




PRCNTl 


1547 


1706 


4060 




STC KNMBUF 


1550 


1707 


2041 




ADD PRCNTl^l 


1551 


1710 


4061 




STC XNMBUF*1 /GET MULT NUM AS 1 PERCNT 


1552 


1711 


0066 




SET I 6 


1553 


1712 


0052 




PRCTl /SET PRCENT TOL 1 


15 54 


1713 


20 30 




ADD TLRNCE 


1555 


1714 


7026 




JMP XNUM /PARA 1 PERCENT SET 



1556 
, 1557 
1560 
15 61 
15 62 
1563 
15 64 
1565 
1566 
15 67 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1620 
1621 
1622 
1623 
1624 
16 25 
1626 
1627 
1630 
16 31 
16 32 
1633 
1634 
1635 
1636 
1637 
1640 



1 7 1 S 


9P} 97 






X ^osu 




i 71 7 


0101 019 






f f CO 




1 7 91 


Oid AA 
%iv OO 




17 99 


00 54 




1723 


0011 




1724 


2031 




1 7 9 R 


' X) CO 




1726 


0645 


U7, 


1 7 97 


10 20 




1730 


0431 




1731 


7565 




1732 


4033 




1733 


2033 




1734 


0017 




1735 


2035 




1736 


0063 




1737 


4066 




1740 


0451 




1741 


7764 




1742 


0604 




1743 


6743 




1744 


7346 


U9, 



/IF ONE PARA GO ON 



17 45 
1746 
1747 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
17 57 
1760 
1761 
1762 
17 63 
1764 
1765 
1766 
1767 
1770 
1771 



1020 
2400 
0645 
1040 
2022 
1020 
0657 
6415 
72 37 
6415 
60 75 
7210 
1020 
0657 
77 54 
1000 
0003 
0645 
1040 
2663 
7745 



/IF 
00 MATCH 



NUM PTS<NUM MISSES , ERROR 



ADO NUMPRA 
SAE I 
2 

JMP U7 
SET I 6 
PR CT 1+ 2 

CLR 

ADO TLRNCE^l 

JMP XNUM /PARA 2 PERCENT SET UP 

/GET NUM MISSES ALLOWED, SAME ANS BUFF 

LOT 5 
IDA I 
DSP2P2 

JMP Ul A /PROCESSED NUM IN AC 
STC MISSES /STORE NUM MISSES 

ADD MISSES 
COM 

ADO PTSUNK 
SET I 3 
4066 
APO 

JMP ILLG 
/ALL OK, 
LIT 4 
JMP U8 

/SPECTRUM MATCHES OUTPUTTEO 
JMP KEEPOR /REFRESH DORETTE 

/SOMETHING ILLEGAL HAS BEEN ENTERED 
/MUST RESTORE ANSWER BUFF 
iLLGLi LOA I 

BUF84+2000 
LDF 5 
STA 

ANSWER+2000 

LOA I 

OSPERA 
iLLGLli JMP 86FRB0 

JMP GETANS 

JMP B6FR80 

JMP CLLDRA 

JMP PROCMD 
NOTUNO. LDA I 

DSPERA 

JMP ILLGLI 
ILLG, LOA 

3 

LDF 5 
STA 

ERRCXX*2000 
JMP ILLGL 
CHAIN "LIFE B4" 



/WAIT FOR CR 



/WAIT 
/YES, 



FOR CHAR 
PROCESS IT 



/DISPLAY ADO SPEC NOT UNIQUE 
/STR CODE IN PTR 3 



0000 *20 

0001 /LIFE MAINLINE PROCESSING 
00(32 /START DISPLAY INTERPRETATION 

0003 SEGMNT 4 

0004 ttl7 

0005 0017 6201 FLDH0, 6201 /CDF l^DORA 

0006 /IOC 21-24 ARE DORETTE PTRS 

0007 <*26 

0010 0026 0647 INITDL* LDF 7 

0011 0027 0700 ROC 

0012 0030 6322 6322 



0013 


00 31 


0 / 00 




ROC 




0014 


0032 


7 T O I 

/ 0 c %j 




7323 




00 15 




100 0<c 




POP 




0016 








PMOOE 




00 17 


00 34 


60 32 




KCC 




0020 


00 35 


60 46 




TLS 




00 21 


00 36 


6141 




UINC 




0022 








LMODE 




0023 


00 3 7 


70 6 6 




JMP STRT 




0024 








/CONSTANTSf TEMP STORp REFi FLAGS 


0023 


0040 


7777 


Dl AL 77 » 


7777 




0026 








REA0=7774 


0027 








WRITE=7775 


00 30 


00 41 


6000 


RTN» 


RE TURN 


/RETURN, I NIT TP 


0031 


0042 


7774 


PREADi 


READ 




00 32 


00 43 


7775 


PWRI TE » 


WRITE 




00 33 








/PARAMETERS • BLOCK 0 


0034 


00 44 


0000 


a A O A 01 

PA HA 0 1 


0 


/TAPE UNIT « SETFROM QUANOA 


0035 


00 4 5 


00 34 




34 


/CORE LOCATION - B7Q0 


0036 


004 6 


01 171 01 fli 




0 


/ST BLK 


0037 


004 7 


0001 




1 


/BLKS 


0 04 0 




V 10 if 10 


M A MP T P - 


0 


/4 CHAR TAPE NAME 


00 41 


005 1 


01010101 
0000 




0 








6777 


1 1 U n u 1 o f 


6777 


/- NUM PTS DISP 


K)i0 So 








/DO SUBROUTINE IN 86 . PTRS 10,11 




00 70 






ROL I 1 


/SAVE BIT 0 






0301 




ROR 1 








0353 




SCR 13 




0101 A7 


00 56 






LOA 




01 flic a 
00910 


01 as 7 
» 10 ^ ^ 


a (71 01 
K> o 10 10 




0 




and 




1 01 ^ a 
XtO *tKJ 




ST A 




0052 


006 1 


00X1 




11 


/RETURN JUMP TO MAINLINE CALL 


0053 


0062 


1900 




BCL I 




0054 


0063 


6000 


SrCUST # 


6000 


/CONSTANT IN SPCSR ROUT 


00 55 


OIOI Ail 

0lfl o*t 


10 




STC 10 




00 56 


01 Ot A R 


0t A ^ ^ 
w 0 S *t 




LDF 4 




00 57 


/}I0) AA 


X0 X0 




LOA 10 


/CONTENTS OF NEXT LOC - JUMP SI 


0060 


0067 


01 O T -1 
0i£Ol 




XSK I 11 


\OiO OX 


OiOi 7(3S 






LIF 6 




00 62 


an 7i 
k}0 'X 


OKI cl0 




JMP B6CALL 


00 63 


aa 7 0 
\0v / c 


A0I i 1 
OKI XX 




JMP 11 




0064 








/PARAMETERS - REST OF LIFE TAPE 


0101 as; 


01(71 71 




PARA . 


0 


/TAPE UNIT « SET FROM QUANOA 


0066 


00 


0009 




35 


/CORE LOCATION - 87, Q 


0067 


Mini '7 R 
00 /D 


0000 




0 


/ST BLK • SET FROM SUBROUTINES 


00 70 


rtioi "7A 

00 /o 


00 01 




1 


/BLKS 


00 71 


0101 77 


not 0101 
00 00 




0 


/PARAPTS 


01 01 T O 




01 0101 Cf 


Kit IMP A P . 
IMU Plr Af^ f 


0 


/DATA PARA 


\0\u /O 




00 00 


TNST NM • 


0 


/4 CHAR INST NAME 


01 01 1 A 


KiX 


£71 01 01 C( 




0 




01 01 Tt^ 
00 /P 




01 01 01 CI 
ff K> i0 10 




0 


/FIRST BLK OF INST 


W 7 A 


0104 


7 77 5 


M2 » 


7775 


/CONSTS 


00 77 


0105 


00 01 


P1B4 , 


00 01 




0100 


0106 


0000 


ERAST, 


0 




0101 








/SUBROUTINE - CHECK IF LIFE TAPE 


0102 








/PTRS 5 


,6,7 BLOCK 0 OF LIFE TAPE IN 87 


0103 








/IF LIFE, BUMP RET, ELSE NOT 


0104 


0107 


1020 


CKTPIN, 


LOA I 


/SET FOR FIRST 8 WORDS 


0105 


0110 


2377 




2377 




0106 


0111 


4006 




STC 6 




0107 


0112 


0065 




SET I 5 




0110 


0113 


7767 




7767 


/IN QUARTERl B7 


0111 


0114 


06 47 




LDF 7 





0112 


011t? 


6000 




JMP 


0 


0113 


0116 


0047 


CKTP, 


SET 


7 /THIS MUST ALSO BE 


0114 


0117 


0000 




0 




0115 


0120 


1025 




LDA 


I 5 /GET NEXT WO 


0116 


0121 


1026 




LOA 


I 6 


0117 


0122 


1440 




SAE 




0120 


0123 


00 05 




5 


/IS IT CORRECT 


0121 


0124 


6007 




JMP 


7 /NO, GET OUT 


0122 


0125 


0205 




XSK 


5 /YES, OVER? 


0123 


0126 


6120 




JHP 


CKTP*2 


0124 


0127 


0227 


CKTPB* 


XSK 


I 7 /YES, BUMP, EXIT 


0125 


0130 


60 07 




JMP 


7 



0126 
0127 



/SUBROUTINE TO INITIALIHE LIFE TAPE 
/SET UP BLK 0 IN 8300 



OR DELETE ALL 



0130 


0131 


0047 


IN TP , 


SET 7 /SET PTRS 


0131 


0132 


0000 




0 


0132 


0133 


6107 




JMP CKTPIN 


0133 


0134 


1025 


INTPA. 


LDA I 5 /STORE 7770-7777 


0134 


0135 


1000 




LOA 


0135 


0136 


0005 




5 


01 36 


0137 


10 66 




STA I 6 


0137 


0140 


0205 




XSK 5 


01 40 


01 41 


61 34 




JMP IMTPA 


0141 


0142 


0011 


INTPB, 


CLR /WHEN riNISHEO, STORE REST 


0142 


0143 


1066 




STA I 6 


0143 


0144 


1000 




LDA 


0144 


0145 


0006 




6 


0145 


0146 


1460 




SAE I 


0146 


0147 


2777 




2777 


0147 


0150 


6142 




JMP INTP8 


0150 








/STORE DAD NULL FOR BLK0. TRAILER 


0151 


0151 


0011 




CLR 


0152 


01 52 


1620 




BSE I /TRAILER 


0153 ^ 


0153 


0077 




77 


0154 


0154 


1046 




STA 6 


0155 


0155 


1000 




LDA /8LK0 


0156 


0156 


2725 




2725 


0157 


0157 


1620 




BSE I 


0160 


0160 


4000 




4000 


0161 


0161 


1040 




STA 


0162 


0162 


2725 




2725 


0163 


0163 


6007 




JMP 7 


0164 






EJECT 





0165 








/SUBROUTINE SET TO ERASE AN INSTRUMENT 


0166 








/B0 IN BNK 7 Q0 


01 67 








/SUBl « IDENTIFY INSTRUMENT, GET STARTING BLOCK 


0170 








/RET ir NONE, BUMP IF FOUND, 2 BUMPS IF OVERFLOW. PTR6 HAS 


0171 


0164 


0066 


ERl, 


SET I 6 


0172 


0165 


2006 




2006 


0173 


0166 


02 26 




XSK I 6 


0174 


0167 


0226 




XSK 1 '6 


0175 


0170 


0047 




SET 7 


0176 


0171 


0000 




0 


01 77 


01 72 


06 47 


ER0C. 


LOF 7 


0200 


0173 


1006 


ERlAt 


LDA 6 /IS THIS END - NEXT WO 0 


0201 


0174 


04 70 




A2E I 


0202 


0175 


6007 




JMP 7 /YES, ERROR RETURN, PTR6 HAS FIRST 0 


02 03 








/COMPARE FIRST 2 CHAR 


0204 


0176 


1440 




SAE 


0205 


01 77 


01 01 




INSTNM 


0206 


0200 


6226 




JMP ER18 


0207 


0201 


1026 




LDA I 6 


0210 


0202 


1440 




SAE 


0211 


0203 


0102 




INSTNM*1 


0212 


0204 


6227 




JMP ERlB+1 


0213 


0205 


1026 




LOA I 6 /MATCH MADE* GET FIRST BLK 


0214 


0206 


1560 




BCL I 


0215 


0207 


6000 




6000 


0216 


0210 


4103 




STC FSTBLK 


0217 






/MATCH 


MADE, STORE NUM PARA 


0220 


0211 


1006 




LOA 6 


0221 


0212 


0242 




ROL 2 


0222 


0213 


1560 




BCL 1 


0223 


0214 


7774 




7774 


0224 


0215 


0646 




LDF 6 


0225 


0216 


1040 




STA 


0226 


0217 


2047 




PRMTRS*2000 


02 27 


02 20 


06 40 




LOF 0 


0230 


0221 


1040 




STA 


0231 


0222 


2027 




NUMPRA*2000 


0232 


0223 


4100 




STC NUMPAR 


0233 


0224 


06 47 




LOF 7 


0234 


0225 


6240 




JMP ERIC 


02 35 


02 26 


02 26 


ERIB. 


XSK I 6 /GET TO NEXT INSTRUMENT 


0236 


0227 


0226 




XSK I 6 


02 37 


02 30 


02 26 




XSK I 6 


0240 


0231 


10 20 




LDA I 


02 41 


02 32 


5457 




5457 /MAKE SURE INDEX DOES NOT OVERFLOW 


0242 


0233 


2006 




ADD 6 


0243 


0234 


0451 




APO 


0244 


0235 


6173 




JMP ERIA /OK, RETURN 


0245 


0236 


0011 




CLR 


0246 


0237 


0227 




XSK I 7 


02 47 


02 4 0 


02 27 


ERIC, 


XSK I 7 


02 50 


0241 


6007 




JMP 7 /INDEX OVERFLOW, 2 BUMPS 


0251 








/SUBROUTINE EOR MATCH SEARCH OF TAPE INDEX 


0252 








/MATCH « 0 BUMPS, OVERFLOW » 1 BUMP, NO MATCH • 2 BUMPS 


0253 


0242 


0044 


ER0* 


SET 4 


0254 


0243 


0000 




0 


02 55 


02 44 


6164 




JMP ERl /JUMP MATCH 


0256 


0245 


6251 




JMP .+4 


02 57 


02 46 


6004 




JMP 4 /IF MATCH, 0 BUMPS 


02 60 


0247 


02 24 


ER0A, 


XSK 1 4 /IF OVERFLOW 


0261 


0250 


6004 




JMP 4 


0262 


0251 


0451 




APO /IF NO MATCH, CHECK FOR 7777 


0263 


0252 


6255 




JMP ER0B /YES, RETURN 



0 OR 7777 



02 64 


0253 


02 24 




XSK I 4 


0265 


0254 


6247 




JMP £R0A /NO MATCH, 2 BUMPS 


0266 


0255 


0226 


ER08. 


XSK I 6 


0267 


0256 


0226 




XSK I 6 


0270 


0257 


0226 




XSK I 6 


0271 


0260 


6172 




JMP ER0C /REENTRENT TO ER0 


0272 








/SUB2 = DELETE INSTRUMETNT* GIVEN ST BlK 


0273 








/PTR6 AT FST BLK OF INSTRUMENT 


0274 


0261 


0011 


ER2, 


CLR 


02 75 


02 62 


21 03 




ADO FSTBLK 


02 76 


02 63 


40 75 


ER 2A . 


STC PARA +2 /SETUP READ PTRS 


02 77 


0264 


0647 




LDF 7 


0300 


02 65 


63 07 




JMP ER2S1 /SU8 sue TO CLR BIT COORESP 


030i 


0266 


20 75 




ADD PARA+2 


0302 


0267 


6053 




JMP OOSUB 


0 30 3 


0270 


6150 




JMP RDTAPE /DO TPAPEREAD OF NEXT BLK 


0304 


0271 


1000 




LDA /WAS THIS THE LAST BLK 


0305 


0272 


2777 




2777 


0306 


02 73 


04 50 




AZE 


0 30 7 


0274 


6263 




JMP ER2A /HOt CLR NEXT DAD BIT 


0310 


02 75 


2104 




ADD M2 


0311 


02 76 


2006 




ADD 6 /YES, STORE 7777 IN INDEX FILE 


0312 


0277 


4006 




STC 6 


0313 


0300 


0017 




COM 


0314 


03 01 


1046 




STA 6 


0315 


0302 


1066 




ST A I 6 


0316 


03 03 


10 66 




STA I 6 


0317 


0304 


6053 


ER2RTN 1 


JMP DOSUB /JUMP WRITE UNIT 0 


03 20 


0305 


75 66 




JMP WTUN0 


0321 


0306 


7127 




JMP STRTB 


03 22 








/SUB SUB TO CLR BIT COORSP TO WD IN PARA 2 


0323 


0307 


1000 


ER2Si, 


LDA 


0324 


0310 


0000 




0 


0325 


0311 


4350 




STC ER2SRT 


0326 


0312 


4004 




STC 4 /WO CNT 


0327 


0313 


2075 




ADD PARA+2 


0330 


0314 


4106 




STC ERAS! 


0331 


0315 


0065 




SET I 5 /«12 BITS 


0332 


0316 


7763 




77 63 


0333 


0317 


2106 


ER2S2, 


ADO ERAST /GET PROPER WD 


0334 


0320 


2005 




ADD 5 


0335 


0321 


0470 




A2E I 


0336 


0322 


0011 




CLR 


0337 


0323 


0451 




APO 


03 4 0 


03 24 


63 30 




JMP ER2S3 /AT WD 


0341 


0325 


0224 




XSK I 4 


0342 


0326 


41 06 




STC ERAST 


0343 


0327 


6317 




JMP ER2S2 


0344 








/AT WDi ROTATE 0 001 LEFT 1 BIT FOR EVERY NEG 


0345 


0330 


4007 


ER2S3, 


STC 7 


0346 


0331 


2105 




ADD P1B4 


0347 


0332 


0241 




ROL 1 


03 50 


03 33 


0227 




XSK I 7 


0351 


0334 


6332 




JMP ER2S3+2 


0352 


0335 


0301 




ROR 1 


0353 


0336 


4007 




STC 7 /PROPEL BIT MASK SET 


0354 


0337 


2004 




ADD 4 


0355 


0340 


1120 




ADA I /START OF DAD IN BLK 0 


0356 


0341 


2324 




2324 


0357 


03 42 


4004 




STC 4 /SET FIRST LOC OF BIT MAP 


0360 


0343 


1024 




LOA I 4 


0361 


0344 


1540 




8CL /DO BIT CLEAR 


0362 


0345 


0007 




7 



TO WD IN PARA*2 



03 63 


0346 


1044 




ST A 4 


03 64 


03 47 


0011 




CLR 


03 65 


03 50 


60 00 


ER2SRT , 


RETURN 


0366 








/SUBROUTINE TO PRINT SPECTRUM DATA 


0367 








/PTRS 10, 11, 12, X, 13-17 USED IN SUBSUB 


0370 








/HEADER ALREADY ASSUMED PRINTED 


03 71 








/B0 IN B7O0 


0372 








/AC=0 ir NO MATCH. =4000 IF MATCH 


03 73 








/4 CHAR NAME IN INSTNM 


0374 


0351 


0045 


TYC» 


SET 5 /SAVE RET 


0375 


0352 


00 00 




0 


0376 


0353 


62 42 




JMP ER0 /FIND INSTRUMENT 


03 77 


03 54 


63 57 




JMP TYCA /MATCH. DO PRINTOUT 


0400 


0355 


0016 




NOP /OVERFLOW ILLEGAL 


0401 


0356 


6005 




JMP 5 /NO MATCH, EXIT 


0402 


0357 


2103 


TYCA, 


ADO FSTBLK 


04 03 


0360 


06 06 




LIF 6 


04 04 


0361 


6655 




JMP TYCl 


0403 








EJECT 



r" 



04 06 








/SUBROUTINE TO PRINT ALL MATCHING LIBRARY CURVES 


0407 








/FOR UNKNOWN SPECTRUM IN 80 


04 10 








/I NSTNM BUFFER SET UP 


04 XI 








/AC=0» NO HATCH ON INST, A NOT=0, OK 


0412 








/ALL PARA IN B0* B4, B6 ASSUMED SET UP 


0413 


0362 


1000 


LBPR , 


LDA 


0414 


0363 


0000 




0 


04 15 


0364 


4370 




STC LBPRRT 


0416 


0365 


6242 




JMP ER0 /GET FIRST BLOCK OF INSTRUMENT 


0417 


0366 


6371 




JMP LBPRA 


0420 


0367 


0016 




NOP 


04 21 


0370 


6000 


LBPRRT P 


RE TURN 


04 22 


03 71 


2103 


LBPRA. 


ADD rSTBLK 


0423 


0372 


6053 




JMP DOSUB 


0424 


0373 


6150 




JMP ROTAPE /READ IN FIRST DATA BLK 


04 25 


03 74 


0606 




LIF 6 


0426 


0375 


7020 




JMP L8PRB /GO TO B6 FOR PRINTOUT 


0427 






«400 




0430 


0400 


0000 


8Ur84 , 


0 


04 31 






#415 




04 32 








/SUBROUTINE TO DELETE A SPECTROM 


0433 








/WHOSE NAME IS IN TY07A OF B5 


04 34 








/AC=0 IF DELETED, AD - IF NO INST, * IF NO SPECTRA 


0435 


0415 


1000 


OEISP, 


LDA 


0436 


0416 


0000 




0 


04 37 


0417 


4424 




STC DELSRT 


04 40 


04 20 


6242 




JMP ER0 /GET FIRST BLOCK 


0441 


04 21 


64 25 




JMP DELS PA 


0442 


0422 


0016 




NOP 


0443 


0423 


2063 




ADO SPCCST 


04 44 


0424 


60 00 


DELS RT t 


RETURN /ERROR, NOT FOUND, AC NEG 


04 45 


0425 


2103 


OELSPA, 


ADD FSTBLK 


04 46 


04 26 


60 53 




JMP OOSUB /READ IN FIRST DATA BLOCK FIND MATCH 


0447 


0427 


7155 




JHP FNDSPB 


0450 


04 30 


04 50 




AEE 


0451 


0431 


6424 




JMP DELSRT /RETURN, NO SPEC MATCH, AC * 


0452 








/MATCH, DELETE SPEC 


0453 








/PTR 16 AT LAST SPEC WD 


0454 


0432 


0016 


DEtSPCi 


NOP 


0455 


0433 


0016 




NOP 


04 56 


04 34 


00 11 




CLR /AT FRST TAPE CHARS 


0457 


0435 


0646 




LDF 6 /STORE 0 IN LOC 


0460 


0436 


1000 




LDA 


0461 


0437 


2016 




2016 


0462 


0440 


4003 




STC 3 


04 63 


04 41 


06 47 




LDF 7 


04 64 


04 42 


1043 




STA 3 


0 4 65 


04 43 


2075 




ADD PARA*2 


04 66 


04 44 


6053 




JMP DOSUB 


0467 


0445 


6173 




JMP WTTAPE /WR I TE IT 


0470 


0446 


6424 




JMP DELSRT /RETURN OK, AC»0 


0471 








/84 PART OF B6 SUB TO STORE IN LIFE BLK 


0472 


0447 


6516 


STRLFB, 


JMP FNOAO 


0473 


0450 


67 26 




JMP ERNNX /IF NO 8LKS LEFT. JUMP ERROR 


04 74 


04 51 


2515 




ADO AOSBLK /BLOCK ASSIGNED, IN AC 


0475 


04 52 


0606 




LIF 6 


0476 


0453 


7217 




JMP STRLFC 


0477 








/TRANSFER-NUM WDS IN PTR 6 


0500 








/FROM PTR 7 TO PTR 16 B7, PTR 16 AT START OF BUFF, 


0501 








/ASSUME L0FS4 


0502 








/PTR 16 ENDS AT NEXT WD AFTER BUFF 


0503 


0454 


1000 


INSRT, 


LDA 


0504 


0455 


0000 




0 



\ 



0505 


0456 


4464 




STC INSRTN 


0506 


04 57 


10 27 


INSRTA 1 


LDA I 7 /GET NEXT WO 


0507 


04 60 


60 53 




JMP 00 SUB 


0510 


0461 


72 03 




JMP STRLF /STORE 


0511 


0462 


0226 




XSK I 6 /END 


0512 


0463 


6457 




JMP INSRTA /N0» GO BACK 


0513 


0464 


6000 


INSHTN 1 


RETURN /YES 


0514 








/SUBROUTINE TO ADD A SPECTRUM 


0515 








/WHOSE NAME IS IN TY07A OF B5» INST NAME IN INS'NM 


0516 








/EXIT IF NAME REDUNDANT 


0517 








/ONE BUMP IF NO MORE ROOM IN INDEX OR TAPE 


0520 








/TWO BUMPS IF OK 


0521 








/PTRS BY ERO HAS 4,6,7, USE 12i3 


0522 


0465 


^000 


ADSTMP , 


0 /LOC 8LK 0 OF FIRST 7777* 0 IF UNFILLED 


05 23 


04 66 


00 00 




0 


05 24 


04 67 


1000 


AOSSP, 


LDA /SAVE RET, INI T TRMP 


0525 


0470 


0000 




0 


0526 


0471 


4002 




STC 2 


0527 


0472 


4465 




STC ADSTMP 


0530 


0473 


4466 




STC ADSTMP+1 


0531 








/FIND IF INSTRUMENT EXISTS 


0532 


0474 


6164 




JMP ERl 


0533 


0475 


6505 




JMP ADSSPl /NO MATCH 


0534 


0476 


6617 




JMP ADSSPA /MATCH 


0535 






/CHECK 


IF DELETED SrECTKA FuUND 


0536 






/BEFORE 


END REACHED 


0537 


0477 


1000 




LDA 


0540 


0500 


0465 




ADSTMP 


05 41 


05 01 


04 50 




A2 E 


0542 


0502 


6565 




JMP A0SSP5 /STuHE IN UtLtlLP AULA 


0543 


0503 


0222 


AOSBMPf 


XSK 1 2 /INDEX OVERFLOW 


0544 


0504 


6002 




JMP Z /BUliP KLTURNj Ea I 1 


0545 








/NO MATCH, EITHER END OF INDEX OK DEL 1 No T 


0546 


0505 


0471 


AOSSPl, 


APO I 


0547 


0506 


6557 




JMP ADSSP2 


0550 


0507 


2465 




ADD ADSTMP /DELE'EU IiNoi* oAvL LUo 


0551 


0510 


0450 




AHE 


0552 


0511 


6255 




JMP ER0B /UNLE^'S rKiUK uiNt ruuiNU 


0553 


0512 


2006 




ADO 6 


0554 


0513 


4465 




STC ADSTMP 


0555 


0514 


6255 




JMP ER08 /RET 


05 56 


0515 


00 00 


AOSBLK > 


0 


0557 








/SEARCH DAD MAP BLK0, bti otr\ Nun Luu«tbr 


0560 








/TO FIRST FREE BIT IN AUoHL'^* ^ti ai \ $ onr rtciuniN 


0561 








/IF NO FREE BLOCKSf RET 


0562 








/PTRS 3#5»10»11 


0563 


0516 


10 00 


FNOAOf 


LDA 


0564 


0517 


0000 




0 


05 65 


05 20 


40 12 




ST C 12 /S AV t RE T 


0566 


0521 


4013 




STC 13 /INIT BLK CNT 


05 67 


0522 


06 47 




LDF 7 


0570 


0523 


0063 




««r-T • -> 4e«rT iir\ Ctot mad 

SET I 3 /SET WD TO STRT OF MAP 


05 71 


05 24 


2324 




23 24 


05 72 


05 25 




r M n A n 1 
r NuA Ul t 




05 73 


0526 


7763 




7763 


0574 








/START NEXT WO 


05 75 


05 27 


1023 


FNDAD2 i 


LOA I 3 


0576 


0530 


0471 




APO I /IS BIT A 0 


0577 


0531 


6544 




JMP FN0AD3 


0600 


0532 


0241 




ROL 1 /N0» ROTATE 


0601 


0533 


0233 




XSK I 13 /BUMP BLK CNT 


0602 


0534 


0225 




XSK I 5 /IS IT END OF WD 


0603 


0535 


6530 




JMP FN0AD2+1 



0604 


0536 


10 00 




to A 


0605 


0537 


00 03 




3 


06 06 


05 40 


14 60 




SAE I /END or DAD ? 


0607 


0541 


2377 




2377 


06 10 


0542 


6525 




JMP FNOADl /NQ GET NEXT, ELSE 


0611 


0543 


60 12 




JMP 12 /RETURN 


0612 








/OPEN BLOCK FOUND* SET BIT, GET IN ADSBLK 


0613 


0544 


1620 


rNDAD3 1 


BSE i 


0614 


0545 


4000 




4000 


0615 


0546 


0241 




ROL 1 


0616 


0547 


0225 




XSK I 5 /REROTATE 


0617 


0550 


6546 




JMP ,«2 


0620 


0551 


1043 




STA 3 


06 21 


05 52 


10 00 




LD A 


0622 


0553 


0013 




13 


06 23 


05 54 


45 15 




STC ADSBLK 


0624 


0555 


0232 




XSK 1 12 


0625 


0 55 6 


6012 




JMP 12 /RETURN 


0626 








/END or INDEX, ADD ENTRY 


0627 








/PTR 6 AT INDEX ENTRY WDi 


0630 


0557 


6516 


A0SSP2 » 


JMP FNDAD /GET FIRST DAD LOG 


0631 


0560 


6503 




JMP AOSBMP /TAPE FULL* EXIT 


0632 








/TRANSFER 3 WD ENTRY 


0633 


0561 


1000 




LD A 


0634 


0562 


0465 




ADSTMP /ANY DEL ENTRIES 


0635 


0563 


0470 




AHE I 


0636 


0564 


6567 




JMP ADSSP4 /NO. STORE 


0637 


0565 


0046 


ADSSP5 , 


SET 6 


06 40 


05 66 


04 65 




ADSTMP /YES . FILL IT 


06 41 


0567 


10 00 


ADSSP4 , 


LD A 


0642 


0570 


0515 




ADS8 LK 


0643 


0571 


4 103 




STC FSTBLK 


0644 


0572 


1000 


ADSSP3 , 


LD A 


0645 


0573 


0101 




INSTNM 


0646 


0574 


10 46 




STA 6 


0647 


0575 


1000 




LD A 


0650 


0576 


01 02 




I N ST NM *i 


0651 


057 7 


1066 




STA I 6 /STORE INST NAME 


06 52 


06 00 


10 00 




LD A 


0653 


0601 


0100 




NUMPAR 


0654 


0602 


0302 




ROR 2 


0655 


0603 


2515 




ADO ADSBLK 


0656 


0604 


1066 




STA I 6 /STORE NUM P AR » INIT 8LK NUM 


0657 


0605 


1000 




LDA 


0660 


0606 


0515 




AD SB LK 


0661 


0607 


6053 




JMP DOSU B /R EA D BLOCK 


0662 


0610 


61 50 




JMP RDTAPE 


0663 


0611 


1020 




LDA I 


0664 


0612 


2402 




2402 


0665 


06 13 


06 46 




LOF 6 


0666 


0614 


1040 




ST A 


0667 


0615 


2016 




2016 /SET PTR 16 TO START OF STORAGE 


0670 


0616 


6626 




JMP ADSSPX /JMP TO TRANSFER 


06 71 








/MATCH MADE IN INDEX, DO SEARCH FOR REDUNDANT 


0672 








/INSTRUMENT ALREADY HAS CURVES 


0673 








/SEE IF ONE TO BE ADDED IS REDUNDANT 


0674 


0617 


1006 


ADSSPA, 


LDA 6 /GET FIRST BLOCK 


0675 


0620 


1560 




BCL I 


0676 


0621 


6000 




6000 


0677 


0622 


6053 




JMP DOSUB 


0700 


0623 


7155 




JMP FNDSPB /CHECK MATCH 


0701 


0624 


0470 




AHE I 


0702 


06 25 


6002 




JMP 2 /IF MATCHi EXIT 



0703 








/NO MATCH, PTR 


16 AT FIRST NEW LOCATION IN SPECTRA 


0704 








/TRANSFER IN SPECTRUM DATA 


07 05 


06 26 


00 66 


ADSSPX , 


SET 1 6 




0706 


0627 


7767 




11 tl 




07 07 


06 30 


00 67 




SET I 7 




0710 


06 31 


1531 




TY07 A«l 




0711 


06 32 


64 54 




JMP INSRT 


/TRANSFER NEW SPECTRUM TO FILE 


07 12 


0633 


0066 




SET I 6 




0713 


0634 


7775 




7775 




0714 


0635 


0067 




SET I 7 




0715 


0636 


0047 




NAMETP+7776 




07 16 


0637 


6454 




JMP INSRT 


/TRANSFER TAPE N AME 


0717 


06 40 


06 40 




LOT 0 




07 20 


06 41 


10 00 




LOA 




0721 


06 42 


2022 




PA on AT 42^02 




07 22 


06 43 


6053 




IMP n n s LJ R 




07 23 


06 44 


72 03 




JMP STRUT 


/STORE ST BLK NUM 


0724 


06 45 


0640 




LDF 0 




07 25 


06 46 


10 00 




LDA 




0726 


06 47 


2035 




PTSUNK'^2000 




0727 


0650 


10 40 




ST A 




0730 


0651 


0077 




NUMPT4 




0731 


0652 


6053 




JMP DOSUB 




0732 


0653 


7203 




JMP STRLF 


/STORE NUM PTS IN SPECTRUM 


0733 


0654 


0067 




SET I 7 




0734 


0655 


2077 




2077 




0735 


0656 


0640 




LDF 0 




0736 


0657 


2077 




ADD NUMPT4 


/GET -NUM PTS X NUM PARA 


0737 


0660 


1240 




MUL 




0740 


0661 


0100 




NUMPAR 




0741 


06 62 


0017 




COM 




0742 


0663 


4004 




STC 4 


/MUST RESET LDF TO B0 EACH LINE 


0743 


0664 


00 66 


V2» 


SET I 6 




0744 


0665 


7776 




7776 




07 45 


06 66 


06 40 




tOF 0 




0746 


0667 


6454 




JMP INSRT 




07 47 


06 70 


02 24 




XSK I 4 




0750 


0671 


6664 




JMP V2 




07 51 


06 72 


00 17 




COM 




0752 


0673 


6053 




JMP DOSUB 




0753 


0674 


7203 




JMP STRLF 


/STORE TERMINATING 7777 


0754 


0675 


0017 




COM 




0755 


06 76 


06 47 




LOF 7 




0756 


0677 


1040 




STA 




0757 


0700 


2777 




2777 /AFTER 


CURVE AND AS LAST WD OF BLK 


0760 








/WRITE OUT LAST BLOCK, 


0761 


0701 


0011 




CL R 




0762 


0702 


2075 




ADD PARA+2 




0763 


0703 


6053 




JMP DOSUB 




0764 


0704 


6173 




JMP WTTAPE 




07 65 . 


07 05 


0222 




XSK I 2 




0766 


0706 


6503 




JMP ADSBMP 


/RETURN, BUMP TWICE 


0767 








/OORETTE HANDLER TO ADD SPECTRUM 


0770 


0707 


6467 


X2, 


JMP AOSSP 




07 71 


0710 


67 31 




JMP ERNNU 


/JUMP ERROR, NAME NOT UNIQUE 


0772 


0711 


6726 




JMP ERNNX 


/JUMP ERROR, NO MORE ROOM 


07 73 








/OK, SPECTRUM 


ADDED 


0774 








/NOW WRITE BLOCK 0 


0775 


0712 


0002 




POP 




0776 








PMODE 




0777 


0713 


6211 




CDF 10 




1000 


0714 


4443 




JMS I PWRITE 




1001 


0715 


0044 




PARA0 





10 02 


07 16 


6141 






1003 










10 04 


0717 


0600 




L I F 0 


1005 


0720 


7524 




JMP X4 


10 06 


0721 


0640 


X3 t 




1007 


0722 


1040 




ST A 


1010 


0723 


2003 




2003 


1011 


0724 


06 00 






1012 


0725 


7764 




IMP f 1 ! 


1013 


0726 


1020 






1014 


0727 


4071 




4071 


1015 


0730 


6721 




IMP /TRRriD 0 


1016 


0731 


1020 




LD A I 


1017 


0732 


4061 




4061 /rpRnp 1 


1020 


0733 


6721 




JM P X3 


1021 










10 2 2 


0734 


1020 


P5 . 




1023 


0735 


6244 




JMP TRANSB 


1024 


0736 


0646 




LDF 6 


1025 


0737 


1040 




STA 


1026 


0740 


2766 






1027 


0741 


06 00 




1 T r w 


10 30 


0742 


7564 




IMP P6 / iHP R AT K 


1031 










1032 


0743 


6362 


U8 f 


IMP 1 RPR 


1033 


0744 


7056 




JMP R4IMTR /RFTNtTT AM(> Riirr 


1034 


0745 


0600 




LIT 0 


1035 


0746 


77 44 




IMP NO /PRfiyTniiT nif . ryrT 


10 36 










1037 








/PTR7 ML}<?T BF set. PRnrF^SFO WLJM TW AP 


10 40 


07 47 


4753 


HE LP DS » 


STC HE LP 1 


1041 


0750 


2000 




ADD 0 


10 42 


0751 


4763 




STC HELPRT 


1043 


0752 


1020 




LDA I 


10 44 


07 53 


00 00 


HE LP 1 » 


0 


1045 


0754 


6053 




JMP nn^up 


10 46 


07 55 


72 37 






10 47 


0756 


0066 




SE T I 6 


1050 


0757 


24 00 




BUrB4^2000 


1051 


0760 


0017 




rnM /MAkF nrTAi 


1052 


0761 


6053 




JMP no Slip 


1053 


0762 


7310 




IMP RMUI T /AM<i rriKil/. PUT TMAP 


1054 


0763 


6000 


HELPRT » 


RFTURW 


10 55 








/ERROR* DISPLAY. TWFN BACK TO SAMF DI^Pl AY 


1056 


0764 


1020 


MNLNER » 


LDA I /DISPLAY IlLFCAl a ON NUM mhlV 


1057 


0765 


4062 




4062 


1060 


07 66 


06 45 




LDF 5 


10 61 


07 67 


10 40 




ST A 


1062 


0770 


2663 






1063 


0771 


10 20 




IDA T 
LU A i 


1064 


0772 


0656 




DSPFRR 


1065 


0773 


6053 




JMP nn<5LIR /fiFT rR 


1066 


0774 


7237 




JMP GETANS 


1067 


07 75 


67 52 




JMP HELP2 /REDISPLAY LAST DISPLAY 


1070 








/HOVE • NUH HALF WDS IN PTR 6 


1071 








/FROM PTR 5 BUF 


1072 








/TO PRT 7 BUFF 


1073 








/0 BECOMES 40 


10 74 


07 76 


00 40 


P40, 


40 


1075 


0777 


1000 


SHOVE* 


LDA 


1076 


1000 


0000 




0 


10 77 


1001 


5013 




STC SHOVER 


1100 


1002 


1325 


SHOVEA, 


LDH I 5 



0 



1101 1003 0470 A2E I 

1102 1004 2776 ADD P40 /IF 0« HAKE 40 

1103 1005 1420 SHO I /IF STRT OF NEW FIELD. IGNORE 

1104 1006 7400 7400 

1105 1007 7002 JMP SHOVEA 

1106 1010 1367 STH I 7 

1107 1011 0226 XSK I 6 
1110 1012 7002 JMP SHOVEA 
XXXI 1013 6000 SHOVER. RETURN 

1112 /SET OF SUBROUTINES TO INTERFACE WITH AND CONTROL OORETTE 

1113 /SU8SUB-IS GIVEN NUMBER IN AC BETWEEN 0R=2 VALUES IN PTR6 

1114 /YES. BUMP RET. NO, RETURN 

1115 1014 1040 LEGAL* STA 

1116 1015 1031 LEGALl 

1117 1016 0017 COM 

1120 1017 1106 ADA 6 

1121 1020 0471 APO I 

1122 1021 6000 JMP 0 /IF MIN^NUM=+. ERROR 

1123 1022 1026 LOA I 6 /MAX 

1124 1023 0017 COM 

1125 1024 3031 ADD LEGALl /NUM-M AX=* lERROR 

1126 1025 0471 APO I 

1127 1026 6000 JMP 0 /ELSE BUMP, RETURN. IN AC 

1130 1027 0220 XSK I 0 

1131 1030 1020 LDA I /RESTORE AC 

1132 1031 0000 LEGALl* 0 

1133 1032 6000 JMP 0 

1134 /LEGALITY LIMITS FOR VARIOUS LIFE PARAMETERS 

1135 1033 0000 LFUNIT, 0 /UNIT NUM 

1136 1034 0017 17 

1137 1035 0001 SH0W3, 1 /CHOICES 

1140 1036 0004 4 

1141 1037 0061 SH0W12, 61 /NUM PARA=SH0W31, 

1142 1040 0062 62 

1143 1041 0000 SH0W14, 0 /BLOCK NUM RAW DATA 

1144 1042 0777 777 

1145 1043 1001 1001 /NUM PTS 

1146 1044 3770 3770 

1147 1045 0000 SHW21M, 0 /NUM MISSES 

1150 1046 0277 277 

1151 1047 0001 SH0W41* 1 

1152 1050 0003 3 

1153 /START CHOICE TABLE 

1154 1051 0000 STTAB, 0 

1155 1052 7157 jMP STDOR /JUMP GENERATE CURVE 

1156 1053 7334 JMP STPRT /JUMP PRINT 

1157 1054 7433 JMP STERR /JUMP ERASE 

1160 1055 7470 JMP STOIAL /JUMP START DIAL 

1161 /MAINLINE CODING, DIAL MS I/O READIN 

1162 /PROCESS DATA FROM EARLY DISPLAYS 

1163 /TEXT BUFFER IS BY LOC 1365«»CALL BUFB4 

1164 1056 1020 84INTB, LOA I /SUB TO INIT ANS BUFF 

1165 10 57 24 00 BUFB4 * 20 00 

1166 10 60 06 45 LOF 5 

1167 1061 1040 STA 

1170 1062 2022 ANSWER ♦ 2000 /SET UP ANS BUFF 

1171 1063 0067 SET 1 7 

1172 1064 7775 7775 

1173 1065 6000 JMP 0 

1174 1066 7056 STRT. JMP B4INT8 

1175 1067 1020 LDA I 

1176 1070 0026 DSPl 

1177 1071 0067 SET I 7 



1200 


1072 


7774 




7774 


1201 


1073 


0016 




NOP 


12 02 


1074 


6 747 




JMP HELPDS /GET NUM IN AC 


1203 


1075 


0066 




SET I 6 


12 04 


1076 


1033 




LFUNIT 


12 05 


1077 


7014 




JMP LEGAL 


1206 


1100 


6764 




JMP HNLNER /NOT 1-17, ERROR, TRY AGAIN 


1207 








/LIFE TAPE UNI T NUM IN AC 


1210 


1101 


1040 


STRTAi 


ST A 


1211 


1102 


00 44 




PARA0 


1212 


1103 


4073 




STC PARA /STORE IN TAPE PARA 


12 13 


1104 


6053 




JMP OOSUB 


1214 


1105 


6150 




JMP RDTAPE /READ BLK 0 INTO QUARTER 1,B7 


1215 








/SET UP FOR CHECKING 


1216 


1106 


6107 




JMP CKTPIN /INITIALIZE 


1217 


1107 


6116 




JMP CKTP /DO CHECK 


12 20 


1110 


0456 




SKP 


1221 


1111 


7127 




JMP STRTB 


1222 








/NOT INITIALIZED LIFE TAPE 


1223 


1112 


1020 


STRT2, 


LDA i 


1224 


1113 


00 5 3 




DSP2 


1225 


11 14 


6053 




JMP DOSUB 


1226 


11 15 


72 37 




JMP GETANS /ANSWER IN BUF84 


1227 


1116 


1000 




LDA 


1230 


1117 


04 00 




BUF84 


1231 


1120 


1460 




SAE I 


1232 


1121 


7431 




7431 /INITIALIZE LIFE TAPE 


1233 


1122 


7066 




JMP STRT /ANY ANSWER BUT YES, START OVER 


1234 


1123 


6131 




JMP INTP /INITIALIZE LIFE TAPE IF YES 


1235 


1124 


0011 




CLR 


1236 


1125 


6053 




JMP DOSUB 


1237 


1126 


6173 




JMP WTTAPE /WRITE OUT BLOCK 0 ON LIFE TAPE 


1243 








/READ LIFE BLOCK 0 INTO Q0B7 


12 41 








/LIFE TAPE INITIALIZED 


1242 


1127 


00 02 


ST RT B, 


POP 


1243 








PMODE 


1244 


11 30 


6211 




CDF 10 


1245 


1131 


6212 




CIF 10 


12 46 


11 32 


4442 




JMS I PREAD 


1247 


1133 


0044 




PARA0 


1250 


1134 


6141 




Li NC 


1251 








LMODE 


1252 








/DO CHOICE OPT IONS 


1253 


1135 


1020 


STRTC, 


LDA I 


1254 


1136 


0102 




DSP3 


1255 


1137 


00 67 




SET I 7 


1256 


1140 


7775 




77 75 


1257 


1141 


6747 




JMP HELPOS /GET OCTAL NUM IN AC 


12 60 


1142 


00 66 




SET I 6 


1261 


11 43 


1035 




SH0W3 


1262 


1144 


7014 




JMP LEGAL 


1 2 63 


1145 


67 64 




JMP MNLNER /NOT l^A, ERROR# TRY AGAIN 


1264 


1146 


1120 




ADA I 


1265 


1147 


7051 




STTAB*6000 


1266 


1150 


4006 




STC 6 


1267 


1151 


60 06 




JMP 6 


12 70 








/SETUP SHOVE ROUTINE 


1271 


1152 


0066 


SETSHV* 


SET I 6 /BUFB4, 4 CHAR 


1272 


1153 


7773 




7773 


1273 


1154 


0065 




SET I 5 


1274 


1155 


0400 




BUF34 


1275 


1156 


6000 




JMP 0 


12 76 


1157 


71 61 


STDOR, 


JMP IPCSUB /START DORETTE 



12 77 


11 60 


7c 01 




JMP ST00R2 


/GET INSTRUMENT NAME 


1300 


1161 


Xv v\0 


T D P C 1 ID 


IDA 




1301 


1162 


0000 




0 




1302 


1163 


52 00 




STC IPCRT 


/SUB TO SAVE INST NAME 


1303 


1164 


1020 




LDA I 




1304 


1165 


0167 




DSPIPI 




1305 


1166 


6053 




JMP DOSUB 




1306 


1167 


7237 




JMP GETANS 


/4 CHAR NAME IN BUFB4 


1307 


1170 


7152 




JMP SETSHV 




1310 


1171 


006 7 




SET I 7 /TRANSFER TO INSTNH 


1311 


1172 


4100 




INSTNM43777 




1312 


1173 


till 




JMP SHOVE 




1313 


1174 


0067 




SET I 7 




1314 


1175 


5553 




TY08A+3777 




1315 


11 76 


71 52 




JMP SETSHV 




1316 


1177 


till 




JMP SHOVE 




1317 


12 00 


60 00 


IPCR Ti 


RE TURN 




1320 








/CHECK IF NEW 


INSTRUMENT 


1321 


1201 


6242 


STDU Hi 1 


JMP ER0 




1322 


12 02 


7237 




JMP ST00R5 


/NO 


1323 


1203 


00 16 




NOP 




132 4 








/YES, GET NUM 


PAR 


1325 


1204 


10 20 


- 

STDO R3 » 


LDA I 




1326 


1205 


0201 




DSP1P2 




1327 


1206 


6053 




JMP OOSUB 




1330 


1207 


7237 




JMP GETANS 


/ANSWER IN BUFB4 


1331 


12 10 


10 00 




UDA 




1332 


1211 


0400 




BUFB4 




1333 


1212 


1460 




SAE 1 




1334 


1213 


7431 




7431 


/IF NEW INST, NOT ACCEPTED. 


1335 


1214 


7157 




JMP STDOR 


1336 


1215 


1000 




LDA 




13 37 


Ic 10 


W*» vX 




BUrB4*l 




1340 


1217 


1900 




BCL I 




13 41 


12 20 


f f 00 




7700 /LEAVE 006 NUM IN AC 


1342 


1221 


(71 fTI A 




SET I 6 




1343 


12 22 


1037 




SHOW 12 




1344 


12 23 


70 14 




JMP LEGAL 


/IS NUM PAR FROM 1-2 


1345 


1224 


72 04 




JMP STD0R3 


/NO, REFUSE INFORMATION 


1346 


12 25 


1560 


ST DOR** 1 


BCL I 




13 47 


12 26 


77 74 




77 74 /GET 


NUM PAR IN AC 


1350 


1227 


06 46 




LOF 6 




1351 








STA 




1352 


1231 






PRMTRS*2000 




1353 


1232 


06 40 




LOF 0 




1354 


^ nil 


XX}*k\0 




STA 




4 ICR 




C.V cf 




NUMPRA^2000 


/STORE IN ALL BANKS 


1356 








STC NUMPAR 


1357 


1236 


^ O "X "7 




JMP STD0R5 




1360 








/NOT NEW INSTRUMENT, GET NUM PAR IN AC 


1361 








/GET TAPE NAME» SPECTRUM NAME 


1362 


1237 


4 a o 01 
1020 


CT nn uR 
5T DON? f 


LDA I 




1363 


12 40 






DSP1P3 




1 ^ 

XO O "t 


1P 41 


6053 




JMP OOSUB 




13 65 


12 42 


72 37 




JMP GETANS 


/GET ANS BUFF IN BUFB4 


1366 


1243 


7152 




JMP SETSHV 




1367 


1244 


0067 




SET I 7 




1370 


1245 


4047 




NAMETP*3777 




1371 


1246 


till 




JMP SHOVE 


/STORE TAPE NAME 


1372 


1247 


7251 




JMP SHVSBl 




1373 


1250 


72 60 




JMP STOORX 




1374 


1251 


0066 


SHVS81* 


SET I 6 /SET 


UP 16 CHAR SPEC TRANSFER 


1375 


1252 


1151 




7757 





1376 


1253 


0065 




SET 1 5 




1377 


1254 


4402 




BUFB4*4002 




1400 


1255 


0067 




SET I 7 




1401 


1256 


5531 




TY07A+3777 




14 02 


12 57 


6000 




JMP 0 /STORE 


SPECTRUM NAME 


1403 


1260 


6777 


STDORX, 


JMP SHOVE 




1404 








/GET START BLK 


» UNIT NUM, NUM PTS 


1405 


1261 


1020 


STD0R6, 


LDA I 




1406 


1262 


0275 




DSP1P4 




1407 


1263 


0067 




SET I 7 




1410 


1264 


7774 




7774 




1411 


1265 


6747 




JMP HELPDS 


/GET UNI T NUM IN AC 


1412 


1266 


0066 




SET I 6 




1413 


1267 


1033 




LFUN IT 




1414 


1270 


7014 




JMP LEGAL 




I4i5 


1271 


6764 




JMP MNLNER 


/NOT CORRECT, ERROR. TRY AGAIN 


1416 








/START BLK NUM 


IN AC 


1417 


1272 


0640 




LOT 0 




1420 


1273 


1040 




STA 




1421 


1274 


2020 




PARDAT*2000 


/STORE IN DATA TAPE 


1422 








/HELPl ALREADY 


SET UP, SO BMULT CAN BE USED 


1423 


1275 


0067 




SET I 7 




1424 


1276 


7773 




7773 /SET 3 


DIGITS 


1425 


1277 


0066 




SET I 6 




1426 


1300 


64 01 




BUFB4*6001 




1427 


1301 


0011 




CLR 




1430 


1302 


0017 




COM /MAKE 


OCTAL CONVERSION-START BLK 


1431 


1303 


6053 




JMP DO SUB 




14 32 


13 04 


7310 




JMP BMULT 


/ANS IN OCTAL* IN AC, 0*777 IS 


1433 


1305 


0640 




LDF 0 




1434 


1306 


1040 




STA 




1435 


1307 


2022 




PARDAT+2002 


/STORE FOR DATA TAPE 


1436 








/GET NUMPTS^OECIMAL 


1437 


1310 


0067 




SET I 7 




14 40 


1311 


7772 




7772 /4 DIGITS MAX 


1441 


1312 


0066 




SET I 6 




14 42 


1313 


64 03 




BUr64^6003 




1443 


1314 


0011 




CLR 




1444 


1315 


6053 




JMP DOSUB 




1445 


1316 


7310 




JMP BMULT 


/GET DECIMAL NUM PTS IN AC 


1446 


1317 


0066 




SET I 6 




1447 


1320 


1043 




SH0W14*2 




1450 


1321 


7014 




JMP LEGAL 




1451 


1322 


6764 




JMP MNLNER 


/ERROR, TRY AGAIN 


1452 


1323 


0640 




LDF 0 




1453 


1324 


1040 




STA 




1454 


13 25 


2024 




NUMPT0+2 00 0 


/STORE NUM DATA POINTS 


1455 


1326 


0600 




LIF 0 /START 


DORETTE 


1456 


1327 


7106 




JMP DORA GO 




1457 


1330 


0000 


PRTABL. 


0 




1460 


1331 


7350 




JMP PRTl 


/PRINT SPECTRA 


1461 


1332 


7375 




JMP PRT2 


/PRINT LIBRARY SPECTRUM 


1462 


1333 


7135 




JMP STRTC 


/STOP. GO TO CHOICE OPTION 


1463 








/START PRINT ROUT I NE -M Al NL INE 


1464 


1334 


7056 


STPRT, 


JMP 84iNTB 


/INIT ANS BUFF 


1465 


1335 


1020 




LDA I 




1466 


1336 


0444 




0SP3P1 




1467 


1337 


6747 




JMP HELPDS 


/NUM IN AC 


1470 


1340 


0066 




SET I 6 




14 71 


13 41 


10 47 




SHOW 41 




1472 


1342 


7014 




JMP LEGAL 




14 73 


1343 


67 64 




JMP MNLNER 


/ERROR TRY AGAIN 


1474 








/CHOICE IN AC 





14 75 


1344 


1120 




ADA I 




1476 


1345 


7330 




PRTABL*6 00 0 




1477 


1346 


4006 




STC 6 




13 00 


1347 


60 06 




JMP 6 


/JUMP TO CHOICE 1-3 


1501 


1350 


60 53 


PRTl , 


JMP DOSUB 


/PRINT SPECTRA 


1502 


1351 


6267 




JMP TYA 




1503 


1352 


7135 




JMP STRTC 


/GO TO CHOICE OPTIONS 


1504 








/GET SINGLE SPECTRUM, STORE DATA 


1505 


1353 


1000 


SI NGLi 


LDA 




1506 


1354 


0000 




0 




1507 


1355 


5374 




STC SIGR 




1510 


1356 


1020 




LDA I 




1511 


1357 


0515 




0SP3P2 




1512 


1360 


6053 




JMP DOSUB 




1513 


1361 


7237 




JMP GETANS 


/GET NAME OF INST. SPEC IN 


1514 


1362 


7251 




JMP SHVS81 


/SET UP SPECTRUM STORE 


1515 


1363 


6777 




JMP SHOVE 




1516 


1364 


7152 




JMP SETSHV 


/SET 4 CHAR AT START BUFF 


1517 


1365 


00 67 




SET I 7 




15 20 


1366 


4100 




INSTNM+3777 




15 21 


13 67 


67 77 




JMP SHOVE 


/INST NAME STORED 


15 22 






/STORE 


In prt buff 




1523 


13 70 


71 52 




JMP SETSHV 




1524 


1371 


0067 




SET I 7 




1525 


13 72 


5553 




TY08a*3777 




1526 


137 3 


677 7 




JMP SHOVE 




1527 


13 74 


60 00 


S I GR » 


RE TURN 




1530 


1375 


7353 


PRT2 $ 


JMP SINGL 


J ^ ^ A 1 t rSA^A Vki*ff*^ niir*F" 

/GET ALL DATA INTO BUFF 


1531 


1376 


6351 




JMP TYC /PRINT 


R EMAI NDER 


1532 


1377 


7135 




JMP STRTC 


/GO TO CHOICE DISPLAY 


1533 


1400 


0243 


TY AYl, 


ROL 3 


/SAVE TAPE BLK "OCTAL 


1534 


1401 


4041 




STC RTN 




1535 


14 02 


0075 




SET I 15 




1536 


1403 


5663 




T YAN3D*3777 




1537 


1404 


0074 




SET I 14 




1540 


1405 


7774 




7774 




15 41 


14 06 


20 41 


TY AY2» 


ADD RTN 




1542 


1407 


0243 




ROL 3 




1543 


1410 


10 40 




STA 




1544 


14 11 


00 41 




RTN 




15 45 


14 12 


15 60 




BCL I 




1546 


14 13 


7770 




7770 


/GET NaT 0 i b 


1547 


1414 


1120 




ADA I 




1550 


1415 


0060 




60 




15 51 


14 16 


13 75 




STH I 15 




1552 


1417 


0011 








15 53 


14 20 


02 34 




XSK I 14 




1554 


1 421 


7406 




JMP TYAY2 




1555 


1422 


0O0O 




LIF 6 




1556 


1423 


6372 




JMP TYAY5 




1557 


1424 


7056 


OA Al t 


JMP B4INT8 




1560 


142 5 


7l2 7 




JMP STRTB 


/CNTRL R REINITIALIZATION 


1561 


1426 


0000 


ERTABL 


p 0 




1562 


14 <:/ 






JMP ERRl 


/ERASE TAPE 


1563 


1430 


7455 




JMP EKR2 


/ERASE INSTRUMENT 


1564 


14 31 


7463 




JMP ERR3 


/ERASE SPECTRUM 


1565 


1432 


7135 




JMP STRTC 


/STOP, GO TO CHOICE OPTION 


1566 








/PROCESS ERROR 


DATA 


1567 


1433 


7056 


STERR* 


JMP B4INTB 


/INIT ANS BUFF 


1570 


1434 


1020 




LDA I 




1571 


1435 


0560 




0SP4P1 




1572 


1436 


6747 




JMP HELPOS 




1573 


1437 


0066 




SET I 6 







14 40 


1 M "XS 
Xlu 0 




OM UW O 






14 41 

X T ~ X 


70 14 




IMP t r r A J 




15 76 


14 42 


67 64 




>Ji ' r ni'j 


/rpRrtp tm runtrr TP v atatki 


157 7 














14 43 


XX C.%) 




AHA T 
AU A i 




16 01 


14 4 4 


7^26 




Lr( 1 A oL O K? 




16 02 


1 4 4 S 


40 06 




C T A 




16 03 


14 46 






IMP ft / 1 1 IM O 
Jn r o /J Un r 




1 ^ (714 

XO l£J*t 








/ k. HA bL (Art 




1 A {TiS 
XO vj 


14 47 


/ ? lOX 


r D o 1 


Jnr t.KKNW0 


/CtR BLK0 IN B7Q1 




1 4 


61 TCl 
"X Ox 




Jn r iN 1" 




X O 19 / 


14m 


AM 1 1 
iO\D X X 




CtH 




1610 
X w X*' 


1 4^2 






JMP D0SU8 




X u X X 


1 4 


fti 7 1; 

ox / 0 




JMP WTTAPE 


/WRITE IT OUT 


1612 


1 4 S 4 

1 *T ^ n 


71 07 




JMP STRTB 


/GO TO REREAD LIFE TAPE 


i ox 0 








/ERASE INDEX 






1 4 5^ S 
i H ^ I? 


CTDI 1 A 
)0V 10 




NO P /S AV E 


INST NAME 


1615 


1 4 S ft 
X "t D 


7 1 ft 1 
' X 0 X 




JMP IPCSUB 




i Oi o 


1 4S 7 


ft O 4 O 




JMP EH0 




1617 


1 4 ft 
X H O 16 


ft ?ft 1 
D c O X 




JMP ER2 /MATCH 


* DELETE INST 


1620 


1 4 6 1 
X *♦ u X 


Ci) C't 1 ft 

f IW X v> 




NOP 




1621 


1 462 


71 ?7 


C n n c A |i 


JHP STRTB 


/NO MATCH, RETURN 


1622 








/DELETE INDIVIDUAL SPECTRA 


1623 


14 63 


7353 


ER R3 t 


Ik* P Q T Mr J 




X w c*t 


14 64 


ft4 1 S 




JMP UlLoP 


/DELETL SPECTRUM 


1625 






/ W R I TF 
/ n n i 1 C 


UUT dLK » 




1626 


146 5 


6051 




JMP uOaUB 




16 27 


1466 


7566 




JMP WTUN0 




1630 


1467 


71 97 




Jn r d 1 n 1 D 


/D ITT t lO kl 

/K LI UH N 


16 31 








/START DIAL 




1632 


1470 


IC V IOC 


i3 1 U i A U 


, POP 




163 3 








PMOOE 




1 ft "^4 
XO o*t 


14 71 
X*t / X 


54 40 




JHP I I DIAL77 




1 ft "^S 








LMODE 




1636 


1 4 7P 


Xt) C\D 


MH Mft pr 
iNU nU nL 


» LDA I 


/MAY BE UNUSED 


16 3 7 


14 7^ 

X " » w 


ft 1 ft R 
O XO 3 




6165 /ERR CD 


5 


16 40 


14 74 


ft7 91 

O / c X 




JMP X3 




16 41 






/P TP 1 
'"in X 


SET»PRNT LINE 




1 647 


14 75 


ftC4 R*^ 


1 R OP 4 


JMP 00SU8 




16 4^ 
XO "to 


147ft 
X*t / o 


ft 1 1 9 
O X X4 




JMP PRNTLN 


/PRINT MATCH SPECTRUM LINE 


16 44 


14 77 
X*» ' / 


(Tift 0! A 
loo I0O 




LIF 6 




1645 


1 

X 3 10 10 


7114 
/ X x*t 




JMP LBPRX 


/GET NXT SPECTRA 


1646 


X >7 w X 


X 10 10 


rp PM ua 

t ri n (>l n K/ 


. LDA 


/ASK IF SURE 


1647 


1 






0 




16 50 


15 03 


•^■^ x*» 




SIC ERRNW9 




1651 


15 04 


102 0 


c n n (X n X 


* LDA I 




16 52 


1505 


16 74 




DSPNEW 




16 53 


15 06 


60 53 




JMP D0SU8 




16 54 


15 07 


72 37 




JMP GETANS 


/GET Y OR N IN BUF84 


1 ft 


X Xiw 


7 1 




JMP SETSHV 




1 ft Sft 


1 S 1 1 
X-/ X X 


X'O 




LDH I 5 




16 57 


1512 


14 20 




SHD I 




1660 


1513 


3100 




3100 




1661 


1514 


6000 


ERRNW9 


» RETURN 


/IF Y GO ON 


1662 


1515 


1420 




SHD I 




1663 


1516 


1600 




1600 




1664 


1517 


7433 




JMP STERR 


/IF N BACK TO ERASE OISP 


1665 


1520 


7504 




JMP ERRNWl 


/ELSE RESHDW SURE 


1666 


1521 


40 40 




40 40 




1667 


1522 


4040 


TY07. 


4040 




1670 


1523 


2320 








1670 


1524 


0503 








1670 


1525 


2422 









16 70 


15 26 


2515 






1670 


1527 


4072 






1670 








TEXT ( 


1671 


1530 


4040 




4040 


1672 


1531 


4040 




4040 


16 73 


15 32 


40 40 


TY07A, 


40 40 


1674 


1533 


4040 




4040 


16 75 


1534 


4040 




40 40 


1676 


1535 


4040 




4040 


1677 


1536 


4040 




4040 


1700 


1537 


4040 




4040 


1701 


1540 


4040 




4040 


1702 


1541 


4040 




4040 


1703 


1542 


0000 




0000 


1704 


1543 


4040 


TY08, 


4040 


1705 


1544 


4040 




4040 


1706 


1545 


1116 






1706 


1546 


2324 






1706 


1547 


2225 






1706 


1550 


1505 






1706 


1551 


1624 






1706 


1552 


40 72 






17 06 








TEXT 


1707 


15 53 


40 40 




4040 


1710 


1554 


4040 


TYOBAi 


4040 


1711 


1555 


4040 




4040 


1712 


1556 


0000 




0000 


1713 


1557 


4040 


TY09, 


4040 


1714 


1560 


4040 




4040 


1715 


1561 


2013 




2013 


1716 


1562 


4040 




4040 


1717 


1563 


4040 




4040 


1720 


1564 


3040 






1720 


1565 


2601 






1720 


1566 


1440 






1720 








TEXT 


1721 


1567 


4040 




4040 


1722 


1570 


0000 


TY09A, 


0 


1723 


1571 


4040 




40 40 


1724 


1572 


3140 






1724 


1573 


2601 






1724 


1574 


1440 






1724 








TEXT 


1725 


1575 


4040 




4040 


17 26 


15 76 


00 00 


TY09B. 


0 


1727 


1577 


4040 




4040 


1730 


1600 


2001 






1730 


1601 


2201 






1730 


1602 


4063 






17 30 








TEXT 


1731 


1603 


0000 


TY09Ci 


mm 


1732 


1604 


40 40 


TYANS# 


40 40 


1733 


1605 


4040 




4040 


1734 


1606 


4040 


TYANl* 


40 40 


17 35 


1607 


40 40 


TYANIA 


, 4040 


1736 


1610 


4040 




4040 


1737 


1611 


4040 




4040 


1740 


1612 


4040 




4040 


1741 


1613 


40 40 




4040 


1742 


1614 


4040 




4040 


1743 


1615 


40 40 




4040 


1744 


1616 


4040 




4040 


1745 


1617 


40 40 




40 40 



QSPECTRUM * Q 

/ANSWER BUFFER 



Q INSTRUMENT \ Q 

/ANSWER BUFFER - USE AS FIRST LINE OF INDEX PRINTOUT 



/PK 



QX VAL Q 

/0 HERE IF ONE PARA 



QY VAL 0 

/0 HERE IF TWO PARA 



QPARA 3Q 



/SPECTRUM NAME 



1746 


1620 


4040 




4040 




1747 


1621 


0000 


TYANIF, 


0000 


/PEAK PTS 


17 50 


1622 


4040 




40 40 




1751 


16 23 


4040 


TYANIB* 


40 40 


/0 IF UNKNOWN LINE 


1752 


1624 


4040 




4040 




1753 


1625 


4040 




4040 




1754 


1626 


4040 




4040 




1755 


16 27 


4040 


TYANlCi 


4040 


/MISSES 


1756 


1630 


0000 




0000 




1757 


1631 


00 00 




00 00 




1760 


1632 


4040 


TYAN3, 


4040 




1761 


1633 


4040 




4040 




1762 


1634 


4040 


TYANA, 


4040 


/INSTRUMENT NAME 


1763 


1635 


4040 




4040 




1764 


1636 


40 40 




40 40 




1765 


1637 


4040 




4040 




1766 


1640 


4040 




4040 




1767 


1641 


4040 




4040 




1770 


1642 


4040 




4040 




1771 


1643 


0000 


TYAN38, 


0 


/SPECTRUM NAME 


1772 


1644 


0000 




0 




1773 


1645 


0000 




0 




1774 


1646 


0000 




0 




1775 


1647 


0000 




0 




1776 


1650 


0000 




0 




1777 


1651 


0000 




0 




2000 


1652 


0000 




0 




2001 


1653 


4040 




4040 




2002 


1654 


4040 




4040 




2003 


1655 


4040 




4040 




2004 


1656 


0000 


TYAN3C» 


0 


/TAPE NAME 


2005 


1657 


0000 




0 




2006 


1660 


4040 




4040 




2007 


1661 


4040 




4040 




2010 


1662 


4040 




4040 




2011 


1663 


4040 




4040 




2012 


1664 


0000 


TYAN3D* 


0 


/ST BLK 


2013 


1665 


0040 




40 




2014 


1666 


4040 




4040 




2015 


1667 


4040 




4040 




2016 


1670 


4040 




4040 




2017 


1671 


0000 


TYAN3E, 


0 


/PTS - 4 DIGITS 


20 20 


1672 


00 00 




0 




2021 


1673 


0000 




0 


/END 


2022 


1674 


4040 


TYAN4, 


4040 




2023 


1675 


0000 


TYAN4A* 


0 


/PEAK 


2024 


1676 


0000 




0 




2025 


1677 


4040 




4040 




2026 


17 00 


4040 




4040 




2027 


1701 


4000 




4000 


/PARAl - 3 DIGITS 


20 30 


1702 


00 00 




0 




2031 


1703 


4000 


TYAN4B. 


4000 


/0 IF ONLY 1 PARA 


20 32 


1704 


4040 




40 40 




2033 


1705 


4040 




4040 




20 34 


1706 


4040 




4040 




20 35 


1707 


4000 




4000 


/PARA 2-3 DIGITS 


2036 


1710 


0000 




0 




2037 


1711 


4040 


TYAN4C, 


4040 


/0 IF ONLY 2 PARA 


20 40 


1712 


4040 




4040 




2041 


1713 


4040 




4040 




2042 


1714 


4000 




4000 


/PARA 3 * 3 DIGITS 


2043 


1715 


0000 




0 




2044 


1716 


0000 


TYAN4D, 


0 


/END OF LINE 



2045 


1717 


4040 TY06, 


4040 


2046 


1720 


1116 




20 46 


1721 


2324 




2046 


1722 


2225 




2046 


1723 


1505 




2046 


1724 


1624 




2046 






TEXT QINSTRUMENTO 


2047 


1725 


4040 


4040 


2050 


1726 


4040 


4040 


2051 


1727 


2320 




2051 


1730 


0503 




2051 


1731 


2422 




20 51 


1732 


2515 




2051 


1733 


4016 




2051 


1734 


0115 




20 51 






TEXT QSPECTRUM NAHQ 


2052 


1735 


0540 


0540 


2053 


1736 


4040 


4040 


2054 


17 37 


40 40 


40 40 


2055 


1740 


4040 


4040 


2056 


1741 


2401 




2056 


1742 


2005 




20 56 


17 43 


4016 




2056 


1744 


0115 




2056 






TEXT QTAPE NAHQ 


2057 


1745 


0540 


0540 


2060 


1746 


4040 


4040 


2061 


1747 


2324 




2061 


1750 


0122 




2061 


1751 


2411 




2061 


1752 


1607 




2061 


1753 


4002 




2061 


1754 


1413 




2061 






TEXT QSTARTING BLKQ 


2062 


1755 


4040 


4040 


2063 


1756 


2013 




2063 


1757 


2300 




2063 






TEXT QPKSQ 


2064 


1760 


0000 


0000 


2065 






CHAIN "LIFE 86" 



0000 






»20 






00 01 








/SUBROUTINE riELO* DISPLAY IN 


LAST ORT 


0002 






SEGHNT 


6 




00 03 






*2 0 






00 04 








/B6 SUBROUTINE CALLER CALLING 


BANK IN DATA FIELD 


0005 








RETURN=6000 




0006 


0020 


4037 


B6CALL * 


STC JMPSU8 




0007 


0021 


0005 




QAC 




0010 


0022 


0452 




LHE /IS L=0 




0011 


002^ 


2051 




ADD P4000 /NOiSET BIT 0 




0012 


0024 


4036 




STC ACVAL2 /SAVE AC 




0013 


0025 


0500 




lOB 




0014 








PMODE 




0015 


40 26 


6214 




ROF /GET DATA FIELD SET UP 


RETURN INSTR FIELD 


0016 








LMODE 




0017 


0027 


03 01 




ROR 1 




00 20 


00 30 


1120 




ADA I 




00 21 


00 31 


06 00 




LIF 




0022 


0032 


4040 




STC LIFX 




0023 


0033 


2000 




ADD 0 




0024 


0034 


4 0 41 




STC BXRET 




00 25 


00 35 


10 20 




LDA I 






00 26 

0027 

0030 

0031 

0032 

0033 

0034 

00 35 

0036 

0037 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

00 57 

0060 

00 61 

0062 

00 63 

0064 

00 65 

0066 

00 67 

0070 

0071 

0072 

0073 

0074 

00 75 

0076 

0077 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0120 

0121 

0122 

0123 

0124 



0036 0000 

0037 0000 

0040 0000 

0041 0000 



0042 
0043 
0044 
0045 
0046 
0047 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0060 

0061 
0062 
0063 

40 64 
4065 
4066 
4067 
40 70 
4071 
4072 
4073 
4074 

0075 
0076 
0077 

4100 
4101 

4102 
4103 
4104 
4105 
4106 
4107 
4110 



0212 
0215 
0100 
4442 
44 43 
0000 
00 00 
4000 
0002 
0003 
0001 



0000 
5400 
5544 



ACVALH, 
JMPSUB . 
LIFX, 
BXRET, 

IF, 

CR , 

P100 . 

JMQR, 

JMQW, 

PRMTRS. 

TEMP1» 

P4000, 

PLUS2, 

P3, 

PI I 

SP SP, 

NUMPTS» 

KIOORA » 

KROORA, 



0 /RESTORE AC 

0 

0 /RETURN, EXIT 

0 

/CONSTANTS, TEMP STOR, REF » FLAGS 

212 
215 
10 0 

4400*PREAO 
44 00 ^P WRITE 

0 /PARA IN CORR TAPE 

0 /DECML 

4000 

2 
3 
1 

4040 
0 

lOORA 



0046 INTDRAi 



0002 

60 32 
4657 
0000 
2000 
00 00 
0000 
0000 
0341 
5300 

0046 
00 00 
0002 

60 32 
4660 

60 31 
5301 
6036 
6041 
5305 
6046 
6141 



0111 6006 



0112 
0113 
01 14 
0115 
0116 
0117 
0120 
0121 
0122 
0123 
0124 
0125 



1000 
0000 
4126 
1321 
0450 
6127 
2043 
6137 
0011 
2042 
6137 
0011 



/NUMPTS IN PRINT SPECTROM 



RDORA 

/DORETTE CALLER 
SET 6 



POP 
PMODE 
KCC 
JHS I 



ORSfRT, 0 



20 00 



DREND» 
YOFFST , 
YSCALE , 



CLLORA< 



/CLEAR KEYBOARD FLAG 

KIDORA 

/BEG CORE LOC 



0 

341 
JMP .+ 4 
LMODE 
SET 6 
0 

POP 

PMODE 

KCC 

JMS I KROORA 

KSF 



/END CORE LOC 
/SCR 1 



/REFRESH DORA 



JMP ,«2 /IF NO NEW CHARi REFRESH DORA 



/CHAR IN ACi KEYBOARD FLAG CLEAR 
/PRINTER READY ? 

/OUTPUT CHAR 



PRNTLN, 
PRNTLA, 



KRB 
TSF 
JMP 
TLS 
LINC 
LMODE 

JMP 6 /RETURN 

/OUTPUT LINE OF DATA TO TTY: 

LDA 

0 

STC PRNTPC /SAVE RET 

LDH I 1 /GET NEXT CHARACTER 
AZE 

JMP PRNTCH 

ADD CR /IF 0, PRINT LF,CR 

JMP GOPRT 
CLR 

ADD LF 
JMP GOPRT 
CLR 



PTRl AT ST-1 



0125 


0126 


60 00 


01 26 






01 27 


0127 


11 20 


01 30 


0130 


77 40 


01 31 


0131 


04 51 


01 32 


01 32 


20 44 


01 33 


01 33 


11 20 


0134 


01 34 


02 37 


0135 


01 35 


61 37 


0136 


0136 


6115 


0137 






0140 


0137 


0500 


0141 


0140 


6046 


0142 


0141 


10 00 


0143 


0142 


0000 


0144 


01 43 


41 47 


0145 


0144 


05 00 


01 4 6 


01 4 5 


6041 


0147 


0146 


61 44 


01 50 


01 4 7 


6000 


0151 






0152 






0153 


01 50 


41 72 


0154 


01 51 


20 45 


0155 


01 52 


41 64 


0156 


0153 


2000 


0157 


0154 


4171 


0160 


0155 


06 44 


0161 


0156 


1000 


01 62 


01 57 


01 72 


0163 


0160 


1040 


0164 


0161 


2075 


0X65 


0162 


0002 


0166 






0167 


4163 


62 11 


01 70 


41 64 


4442 


0171 


4165 


0073 


0172 


4166 


6141 


0173 






0174 


0167 


06 47 


0175 


01 70 


0011 


01 76 


01 71 


6000 


0177 


0172 


0000 


0200 






0201 






0202 


0173 


4172 


0203 


017 4 


2046 


02 04 


01 /5 


4164 


0205 


0176 


2000 


02 06 


01 77 


41 71 


0207 


0200 


6155 


02 10 






0211 






0212 


0201 


0017 


0213 


0202 


4001 


0214 


02 03 


2000 


0215 


0204 


4216 


0216 


0205 


0011 


0217 


0206 


2043 


0220 


0207 


6137 


0221 


0210 


0221 


0222 


0211 


6205 


0223 


0212 


0011 



/LESS THAN 40. ADO 300 



PRNTPC, RETURN 

/TURN 6 BIT DATA INTO 12 BIT 
PRNTCH* ADA I 

7740 

APO 

ADD PI 00 
ADA I 

237 /ELSE ADD 20 0 

JMP GOPRT /PROCESS 
JMP PRNTLA 

/PRINT A CHARACTER IN AC 
GOPRT, 108 

QATLS /TLS 

LOA 

0 

STC .*4 
lOB 

OATSF /TSF 
JMP »-2 

RETURN 

/SUBROUTINE TO READ, BLOCK TAPE IN AC 
/INTO B7G1, FROM PaRA IN B4 
RDTAPE* STC RWTAPE 

ADD JMQR /TAPE READ 

STC TAPEHl 
ADD 0 

STC ROTPRT 
TAPEZ, LDF 4 
LDA 

RWTAPE 

STA 

PARA*2002 
POP 
RHODE 
CDF 10 
JMS I PREAD 
PARA 
LINC 
LHODE 

Lor 7 

CLR 

RETURN 

0 /STORE PARA 2 

/SUBROUTINE TO WRITE 1 BLK TAPE IN AC 
/INTO 87 QV FROM PARA IN B4 

STC RWTAPE 
ADD JMQW /TAPE WRITE 

STC TAPE 21 

ADD 0 

STC ROTPRT 
JMP TAPE2 

/SUBROUTINE TO PRINT LF,CR 
/LINES IN AC 
PRLF, COM 

STC 1 
ADD 0 

STC PRUFRT 
PRLFA, CLR 

ADO CR 
JMP GOPRT 

XSK I 1 
JMP PRLFA 
CLR 



TAPEZl. 



ROTPRT. 
RWTAPE* 



WTTAPE. 



0224 


0^ lo 


9 ffl 4 9 
<- K? *T <£ 




Ann t r 






Oi. O / 




IMP r.npRT 


0226 


0215 


OlCI i i 
WlO 1 1 






02 2 7 


OlQ 1 A 

0c 1 0 


A LI 01 Li 


DPI r D T . 


r\ L 1 U n IN 


0 2 30 










0231 








/rRHM DATA riTLD IN PT R 16 L DF 7 


02 32 








/TO nATA rinn <- 1 tn ptr 17 ldF" i 


mo T "? 
0<c OO 








/IP PAST RLOCK. RFAD IN NEW BL K 


0234 


0 217 




1 n 1^ o n u * 


i nA /<^rT UP TRNXrCR FROM B4 


02 35 


02 20 


00 00 




0 


0236 


0221 


4 22 7 




C T r* TDM Qm t 
J ! L i niN on 1 


02 37 


02 22 


44 




Ann 37 /I nr 4 

AUU £/ /LUr T 


0240 


0223 


^ o c 
4c09 






0241 


0224 


62 30 




jmd tdamc ynn TRAN^rFR 

Jnr 1 n AiN b ^UU iKAlNorcn 


0242 


0225 


2271 




ADD TRNn02 


02 43 


02 26 


42 35 




CTr* TO kiu rt<i /DCCTnOC 1 HCCi 

STC TRNMOl /KtblUnL LUrP 


0244 


0227 


6000 


To M C kji T 

1 K No n 1 1 


DC Tt 1 OAl 


02 45 


02 30 


1000 


T D A W C 

1 K ANb » 


1 n A 
LU A 


0246 


0231 


0000 




0 


0247 


02 32 


42 43 




STC TH NbK 1 


02 50 


0 2 33 


W 0 *t / 


T O A M C A . 


! nr 7 /rri wrXT i IFF Bi QCK WD 


ffl O c; -i 
It) 5 1 




1 0^ 1 A 
X iC i O 




! n A 1ft 


025 2 


W <c 0 ~ 


A ^ 
iO O *♦ 9 


T R W M n 1 . 
I nt>|n UX f 


1 nr s 


02 5 3 


02 3 6 


1 7 7 




c T A T 17 

D 1 H i LI 






A 9 ^ 4 
O C *♦ t 




IMP transr 




lOt •♦It' 






XSK I 15 /HAS BLOCK ENDED 


MORA. 


019 41 


69 "^4 




JMP TRANSA+1 /YES. INIT» READ NEXT 


f Jl 'J K 7 


IDC 


0101 1 1 




n R 


0260 




A 01 CI 01 
0 10(010 




RE TU RN 


Ol 








/PRT 16 MUST BE ADVANCED. READ IN NEW BLOCK 


mo AO 








/ PTR 16 TS LIFE BLOCK PTR 87Q1 


00 


a9 4 4 


1 010} 


TP ANSB . 


1 DA 


0264 


01 9 4 S 


0101 0101 




0 


02 65 


f7?9 Af\ 


49 ftft 




CT f TRABRT 


0 26 6 


ffl O ^ 7 
£ *T / 


O n / 




1 nr 7 


0£ 0 / 


ICfc 9 lO 


Wc OD 




XSK I 16 


/3I O 7 f!(1 


it) c 9 X 


9^ 1 ft 




ADO 16 


02 71 


i^^ 9(1 


1 4 A(?i 
X " Oiw 




<^A r T 

OH C i 


O 7 O 


10 c 9 O 


9 7 7 7 

(mill 




2777 


ViC f O 


019 ^4 


oc o-' 




IMP TRABRT •! 


02 7 4 






/UP T TT 


Hi n Rl K 


0275 


0255 


06 44 




t n r 4 
LUr 4 


0276 


Ol o A 

02PO 


Xi0i0 10 




t n A 
L U A 


fli O 7 "7 




901 7 R 
cw / 9 




r 8 ~ M ' c WW c 


100 I0» 


019 6(71 


61 73 




JMP WTTAPE 


03 01 


019 Ai 


1 01 1 ft 

Xi0 10 




IDA 16 /RFAD NEW BLOCK 


00 to^ 


019 A9 

lOc oc 


wX 910 




IMP ROTAPF 


KfOvO 


«9 ft *i 


00 7 6 




SET I 16 


0304 


OiO A A 

02o*t 


9 4 CAOi 




2400 


03 05 


019 AR 
09 


1 n 1 ft 

xio xo 




J n A 16 


R "? C< A 
t)0 ICO 


019 A A 


6016)01 


TO AQ DT , 


RF TURN 


03 07 








/c;UR RnUT TNF TO PRINT INDEX SPECTRA 


0310 








/PTRS 10,11,12-1.15,16.17 USED IN SUBSUB 


0311 








/B0 ASSUMED IN B7Q0 


0312 


0267 


0050 


TYA, 


SET 10 


0313 


02 70 


00 00 




0 


0314 


0271 


0645 


TRNMD2, 


LOF 5 /CNST IN TRNMO 


0315 


0272 


1020 




LOA I 


0316 


0273 


0003 




3 


0317 


0274 


6201 




JMP PRLF /PRINT 3 LF 


03 20 


0275 


0061 




SET I 1 


0321 


0276 


6751 




TY05+5777 


0322 


0277 


6112 




JMP PRNTLN /PRINT INDEX 



0323 


0300 


2052 




ADD 


PLUS2 




0324 


0301 


6201 




JMP 


prlf 


/PRINT 2 LF 


0325 


0302 


0644 




LOT 


4 




0326 


0303 


0061 




SET 


I 1 




0327 


0304 


7716 




TY06+5777 




0330 


0305 


6112 




JMP 


PRNTLN 


/PRINT INST, SPEC, TP, STBLK. PTS 


0331 


0306 


2054 




ADO 


PI 




0332 


0307 


6201 




JMP 


PRLF 


/PRINT 1 LF 


03 33 








/START OF DATA PROC TOR SUB COLUMNS 


0334 


0310 


0647 


TY Al , 


LOT 


7 




0335 


031 1 


0071 




SET 


I 11 


/PTR 11 IS INDEX PTR-AT FRST BLK 


0336 


0312 


2007 




20 07 






0337 


0313 


1031 


TYA2 * 


IDA 


I 11 




03 40 


03 14 


04 50 




Alt 






0341 


031 5 


6323 




JMP 


TYA3 




0342 


0316 


0471 




APO 


1 




03 43 


031 7 


601 0 




JMP 


10 /IF 


NEXT ENTRY=0, PRINTOUT OVER 


0344 


0320 


0231 




XSK 


I 11 




0345 


0321 


02 31 




XSK 


I 11 




03 46 


0322 


6313 




JMP 


TYA2 


/IF ENTRY=7777, DELETED, SKIP 


0347 


0323 


00 56 


TY A3. 


SET 


16 /SET 


UP INST DATA FIELD PTR 


0350 


0324 


0011 




11 






0351 


0325 


00 75 




SET 


I 15 


/4 CHAR=2W0S 


0352 


0326 


7775 




7775 




03 53 


0327 


0077 




SET 


I 17 




0354 


0330 


3633 




TYAMA*1777 




0355 


0331 


6217 




JMP 


TRNSMO 


/TRNS INTO INST LN 


0356 








/GET 


SPECTUM 


DATA 


0357 


0332 


0647 




LDF 


7 




03 60 


03 33 


0231 




XSK 


I 11 




0361 


0334 


1031 




LP A 


I 11 


/FIRST BLK IN AC 


0362 


0335 


0242 




ROL 


2 




0363 


0336 


1560 




BCL 


I 




0364 


0337 


7774 




7774 




0365 


0340 


4047 




STC 


PRMTRS 


/GET PARA 


0366 


0341 


1011 




LDA 


11 




0367 


0342 


1560 




BCL 


I /CLEAR PARA FROM TAPE BITS 


0370 


0343 


6000 




6000 




0371 


03 44 


0644 


Z7, 


LDF 


4 




0372 


0345 


1040 




STA 






0373 


0346 


2103 




FSTBLK+2000 




0374 


0347 


6150 




JMP 


ROTAPE 


/READ IN FIRST DATA BLOCK 


0375 








/GET 


SPECTRUM LINE 


0376 


0350 


6616 




JMP 


SET16 


/INITIALIHE* STORE 


0377 


0351 


0236 




XSK 


I 16 




0400 


03 52 


6357 




JMP 


TYA4A 




0401 


0353 


6244 


TY A4 , 


JMP 


TRANSB 


/START OF SPEC DATA 


0402 


0354 


04 70 




AHE 


I 




04 03 


03 55 


6313 




JMP 


TYA2 


/IF=0, GET NEW INST 


04 04 


03 56 


66 20 




JMP 


SET16*2 


/NO, PROC NEW ANS 


04 05 


0357 


6217 


TYA4A, 


JMP 


TRNSMD 


/TRANS SPEC DATA 


0406 


0360 


1016 




LDA 


16 


/FST TAPE WD,0 IF DEL 


0407 


0361 


0450 




AHE 






0410 


03 62 


6404 




JMP 


TY AH 




0411 


0363 


6244 




JMP 


TRANSB 


/DELETED SPECTRA, GET PAST 


0412 


0364 


6244 




JMP 


TRAN SB 




04 13 


0365 


6244 




JMP 


TRANSB 


/TO NUMPTS 


0414 


0366 


6402 




JMP 


TYAX 


/TO START OF NEXT SPECTRUM 


04i5 


0367 


6244 


TYAY, 


JMP 


TRANSB 


/GET STBLK 


0416 


0370 


0604 




tiF 


4 




0 41 7 


0371 


7400 




JMP 


TYAYl 


/GET OCTAL 


0420 


0372 


6244 


TYAY5, 


JMP 


TRANSB 


/GET PTS 


0421 


0373 


0077 




SET 


I 17 





0422 0374 3670 TYAN3E*i777 

04 23 03 75 06 44 LOF 4 

0424 0376 6430 JMP OECML /PROCESS INTO 4 DIG. COMPL LINE 

0425 0377 0061 SET I 1 

0426 0400 7631 TYAN3+5777 

0427 0401 6112 JMP PRNTLN /OUTPUT SPECTRUM LINE 

0430 0402 6635 TYAX. JMP A0V16 /MOVE PTR 16 FROM PARA TO FIRST 

0431 0403 6353 JMP TYA4 

0432 /GET PAST TAPE NAME, STORE 

0433 0404 0644 TYA2, LDF 4 

0434 0405 1040 STA 

043b 0406 3656 TYAN3C+2000 

0436 0407 6244 JMP TRANSB 

0437 0410 0644 LDF 4 

0440 0411 1040 STA 

0441 0412 3657 TYAN3C+2001 

0442 0413 6367 JMP TYAY 

0443 /SUBROUTINE STORES WD IN AC AS 4 DEC ASC DIGITS 

0444 /IN BUFF LOCATED BY PTR 17, PTRS 13.14,2 

0445 0414 0017 DECMRM, COM 

0446 0415 4050 STC TEMPI /GET ♦ VAL 

0447 0416 1020 LOA I 

0450 0417 0055 55 

0451 0420 1357 V4 , STH 17 

0452 0421 0011 CLR 

0453 0422 2050 ADD TEMPI /RESTORE AC 

0454 0423 6446 JMP OECMLA 

0455 0424 6027 MlTHS, 6027 

0456 0425 7633 M100i 7633 
04 57 04 26 77 65 M10, 77 65 

0460 0427 7776 Ml, 7776 

0461 0430 4050 OECML, STC TEMPI 

0462 0431 2000 AOD 0 

0463 0432 4463 STC OECMRT 

0464 0433 4014 STC 14 /CLEAR DIGIT VALUE 

0465 0434 0073 SET I 13 

0466 0435 7773 7773 /SET DIGIT CNT 
04 67 04 36 00 72 SE T I 12 

0470 ^ 0437 0424 MlTHS /INIT PLACE PTR 

0471 0440 2050 ADD TEMPI /RESTORE AC 

0472 0441 0451 APO /IS VAL « 

04 73 04 42 6414 JMP DECMRM 

0474 0443 1020 LDA I 

0475 0444 0040 40 

0476 0445 6420 JMP V4 /NO STORE SP 

0477 0446 1112 DECMLA, ADA 12 
0500 0447 0470 AZE I 

05 0 1 04 5 0 64 55 JMP DECMLB /IF NEXT ADD 0, PROCESS 

0502 0451 0451 APO 

0503 0452 6466 JMP DECMLC /IF NEG, RESET 

0504 0453 0234 XSK I 14 /IF BUMP DIGIT VALUE 

0505 0454 6446 JMP OECMLA 

0506 0455 0234 DECMLB, XSK I 14 /0 SEEN, TERMINATE 

0507 0456 2014 ADD 14 

0510 0457 6504 JMP MIS /ADD VALUE TO 60, STORE IN PTR 17 

0511 0460 0060 60 

0512 0461 0233 XSK I 13 /IS IT LAST DIGIT 

0513 0462 0456 SKP 

0514 0463 6000 DECMRT, RETURN 

0515 0464 4014 STC 14 /RECLEAR DIGIT CNT 

0516 0465 6456 JMP OECMLB+1 /FILL WITH 0 

0517 0466 0017 DECMLC, COM /NEG, RESTORE VALUE 
05 20 04 67 1112 ADA 12 



0521 


0470 


0017 




COM 






0522 


0471 


4050 




STC 


TEMPI 




0523 


0472 


2014 




ADO 


14 




0524 


0473 


6504 




JMP 


MIS /WRITE 


IT 


0525 


04 74 


0060 




60 






05 26 


04 75 


4014 




STC 


14 




0527 


0476 


2050 




ADD 


TEMPI 




05 30 


04 77 


02 32 




XSK 


I 12 


/SET TO NEXT DIGIT 


0531 


05 00 


0233 




XSK 


I 13 


/OVER 


0532 


0501 


6446 




JMP 


DECHLA 


/NO, GET MORE 


0533 


05 02 


0011 




CLR 






0534 


0503 


6463 




JMP 


OECHRT 


/YES, RETURN 


0535 








/subroutine: puts 6 BIT ASC IN HALF 


0536 


0504 


4514 


MIS, 


STC 


MIA 




05 37 


0505 


2000 




ADD 


0 




05 40 


0506 


1560 




ecL 


I 




0541 


0507 


6000 




6000 




0542 


0510 


4002 




STC 


2 /PTR 2 


HAS NEXT LOC 


0543 


0511 


0220 




XSK 


I 0 




0544 


0512 


1002 




LDA 


2 




0545 


0513 


1120 




ADA 


I 




0546 


0514 


0000 


MIA, 


0 


/ADDED 


TO AC 


0547 


0515 


1377 




STH 


I 17 


/STORE HALF WO 


05 50 


0516 


0011 




CLR 






0551 


0517 


6000 




JMP 


0 




0552 








EJECT 





0 



05>53 








/SUBROUTINE TO PRINT SPECTRUM POINTS HEADER* SET COMPUTE LINE 










/PTRS 10 ,1 1. 12«1 ,15, 16 ,17 USED IN SUBSU8 


0555 








/8 0 ASSUMED IN B 7Q 0 


05 56 








/SPECTRUM NAME* INSTRUMENT ALREADY STORED FROM DSP 


0557 








/PRMTRS CONTAINS PARA 


0560 


05 20 


45 26 


X12, 


STC X32 


0561 


0521 


10 31 




LDA I 11 


0562 


0522 


4524 




STC X22 /SAVE LOC 


05 63 


0523 


0072 




SET I 12 


05 64 


05 24 


0000 


X2 2# 


0 /12 REACHES 8UF 


0565 


0525 


1020 




LD A I 


If 7 oo 


05 26 


00 00 


X3 2# 


0 


CIS A7 


v 7 c / 






ST A 12 




OK/ 


60 00 




JM P 0 


71 




0UBfl 


TY B» 


SE T 10 




0532 


0000 




0 


MS 7"^ 




06 44 




LDF 4 


05 74 


05 34 


10 20 




LO A I 


05 75 


0535 


00 03 




3 


05 76 


0536 


62 01 




JHP PRLF /PRINT 3 LF 


057 7 


0537 


00 61 




SE T I 1 


0600 


0540 


7521 




TY07+5777 


0601 


0541 


6112 




JMP PRNTLN /PRINT SPECTRUM 


0602 


0542 


2052 




ADO PLUS2 


0603 


0543 


6201 




JMP PRLF /PRINT 2 LF 


0604 


0544 


0061 




SET I 1 


0605 


05 45 


7542 




TY08+5777 /PRINT INSTRUMENT 


06 06 


0546 


6112 




JMP PRNTLN 


0607 


0547 


2052 




ADO PLUS2 


0610 


0550 


6201 




JMP PRLF /PRINT 2 LF 


0611 


0551 


2047 




ADO PRMTRS 


0612 


0552 


0017 




COM 


0613 


0553 


4001 




STC 1 /SET ls:PARA 


0614 


0554 


0071 




SET I 11 


0615 


0555 


0572 




TY81 «1 


0 61 6 


0556 


0221 


TYB2, 


XSK I 1 /IS THERE MORE PARA 


0617 


0557 


2055 




ADO SPSP /IF YES, INSERT SPACES 


0620 


05 60 


6520 




JMP X12 


06 21 


05 61 


6520 




JMP X12 /N0# STORE TERM 0 


0622 


0562 


0011 




CLH 


0623 


0563 


02 01 




XSK 1 /IS IT OVER 


0624 


0564 


65 56 




JMP TYB2 /NO, STORE MORE 40S 


0625 








/YES PRINT LINE 


0626 


0565 


0061 




SET I 1 


0627 


0566 


7556 




TY 09+5777 


0630 


0567 


6112 




JMP PRNTLN 


0631 


0570 


2052 




ADD PLUS2 


0632 


0571 


6201 




JMP PRLF /PRINT 2 LF 


0633 


0572 


6010 




JMP 10 /RETURN 


0634 








/PARAMETER COUNT TABLE 


06 35 


0573 


3570 


TY81# 


TYO9A+20 00 


0636 


0574 


3703 




TY AN48+2000 


0637 


0575 


3576 




TY09B+ 20 00 


0640 


05 76 


^711 




TY AN4C*2000 


0641 


0577 


3603 




TYO9C*2000 


0642 


0600 


3716 




TYAN4D+2000 


0643 








/SUBSU8 TO COMPARE BUFFERS-1 IN PTR 6» 7 


0644 








/WOS IN PTR 10 


06 45 








/IF YES. 0, IF NO 4000 


0646 


0601 


1000 


COMPR, 


LDA 


0647 


0602 


0000 




0 


06 50 


0603 


4612 




STC COMPRT /SAVE RET 


06 51 


06 04 


1026 


COMPRl » 


LDA I 6 /COMPARE 



0652 


0605 


1467 




SAE I 7 


0653 


06 06 


6613 




IMP rn MP Rc> 


0654 


06 07 


02 30 






0655 


0610 


66 04 




IMP rnMPRi 


0656 


06 11 


0011 






0657 


0 612 


6 000 


PflMPPT . 


or Til D M 
n t. i U r< INi 


0660 


0613 


1020 


u n r n c t 


IHA ! /Ktf\ nntAO ADC 


0661 


06 14 


77 77 




77 77 


0662 


06 15 


6612 




IMP rriMPRT /rVTT AtTi^^f^t t ki a r 


0663 


0616 


0 07 6 




«5L 1 i 10 /btl UP Fun SEARCH LIFB DATA PTR 16-^SUB 


0664 


06 17 


2401 




P4 C11 


06 65 


06 20 


06 47 




t nr 7 


0666 


0621 


00 77 






0667 


0622 


3642 




TY AM "^P ♦I 77 7 


0670 


0623 


0075 




<?r T T 1 *5 


0671 


0624 


7767 




7767 


0672 


0625 


60 00 




JM P 0 


0673 


0626 


4015 


MV16 » 


STC 15 yMDvr 16 «8i nr tm at 


0674 


0627 


2000 




ADD 0 


06 75 


06 30 


46 34 




C T r M \/ D T 
OIL n V K i 


0676 


0 631 


62 4 4 




sJn r f K AN Ob 


0677 


06 32 


0235 




AO^ i IP 


0700 


0633 


u u O J. 




Jnr ri V X 0 A 


0701 


0634 


6000 


MVRT « 


p r T ! J P M 


0702 








/ o UD nUJJlINt iU uALuULAlt rio IN riK 16 


0703 








/y PAPAMTTrRQ TW PDmTOC 
/A rAnAnclLf^O ilN rKnlnO 


07 04 








/A Wn AnV/AMPC" DTD 1 X Tu A T u A Ki V 


0705 








/riK 10 Ai NUn rTa»BND5 IN F {KST WD OF NEXT SPECTRUM 


0706 


0635 


0647 


fKU V 4. 0 » 


i nr 7 
LUr / 


0707 


06 36 






1 n A 
LU A 


0710 


0637 


00 47 




ppMTOC 

r n n 1 no 


0711 


0640 


001 7 




O U n 


0 712 


0 641 


4015 




CTP IS /crT 1 Tn .DAD 
OIL Xj /at I 13 lU •PAK 


07 13 


06 42 


2000 




Ann (Pi 


0714 


06 43 


4654 




OIL AUVKi /oAVL KLI 


07l5 


06 44 


1 11 6 


AD VI 6A t 


ADA 16 /GFT PTS X PARA 


0716 


0645 


0235 




A O f\ 1 X 


0717 


0646 


6644 




]Mp AHUiAA 


07 20 


06 47 


00 17 




POM 

Lull 


,0721 


0650 


40 15 




*3IL X-^ /O'UnC. I'lt.w I Is Xv 


0722 


0651 


6244 


AD V16B 1 


JMP TRANSB /MnVr PT R 16 PAST PAPA 


0723 


0652 


0235 




XSK I 15 


0724 


06 53 


6651 




JMP A0V16B 


0725 


0654 


6000 


ADVRT » 


RETURN 


07 26 








/R 6 PA RT n r 04 <sllR TQT Rii^ Ar r riM T T M 1 T o 1 w 
/^o o TM n 1 u r D*» D UD rot O L?\ # AU U UN 1 I N 1 1 o uK 


0727 


0655 


6661 


TYCl 1 


JMP TVr^R /riwn QPrrTPA 


07 30 


06 56 


67 35 




JMP TYPNT /rnNTIMIir 


07 31 


0657 


0604 




uir *T /l>|U nAlLn« CAII 


0732 


0660 


6005 




JMP 5 


0733 








/SUSROUTINF TO FlNin <;PFPTRIJM 


0734 








/PTR 16 WTIL RF AT NHMPT<;. TWTT PI R TW AP 


0735 








/*?PFrTRUM NAMT TW TYn7A TM PR 


0736 








/TF MH M aT PW PUmP R TT 1 iR m PTRCA 7 id 


0737 


06 61 


46 65 


TYCS8, 


STC TYCSBl 


0740 


0662 


2000 




ADO 0 


0741 


0663 


47 26 




STC PETTY /SAVE RET 


07 42 


06 64 


10 20 




LDA I 


07 43 


0665 


0000 


TYCSBl 1 


0 /INIT BLK NUM 


0744 


0666 


6150 




JMP RDTAPE /READ IN LIFE TAPE BLOCK 


0745 


0667 


6616 




JMP SET16 /SET UP FOR SPECTRUM READ 


07 46 


06 70 


6244 




JMP TRANSB /PUT SPECTRUM NAME !N 84 TYAN3B 


0747 


06 71 


6217 


TYCIA, 


JMP TRNSMD 


07 50 








/PTR16 STILL AT LAST SPECTRUM LOC 



07 51 








/SET UP COMPARE 


07 52 


06 72 


1016 




LOA 16 


/IS SPEC DEL 


07 53 


06 73 


04 70 




A2E 1 




0754 


0674 


6711 




JMP TYCIN 




0755 


0675 


06 44 


TY CI M» 


LOT 4 




0756 


0676 


0066 




SET I 6 




0757 


0677 


3642 




TY AN3B+1777 




0760 


0700 


0067 




SET I 7 




0761 


0701 


3531 




TY07A+1777 




0762 


0702 


0070 




SET I 10 




0763 


0703 


7767 




7767 




0764 


0704 


6601 




JMP COMPR 


/DO COMPARE 


0765 


0705 


0451 




APO 


/IF ♦ AC MATCH 


0766 






/ONLY 


PRINT HEADER 




dlbl 


0706 


6711 




JMP TYCIN 




07 70 


0707 


6531 


TYCIX* 


JMP TYB 


/DO PRINT OF HEAD 


0771 


0710 


6727 




JMP TYC2 




0772 








/NO MATCH GET 


NEXT SPECTRA, TRY AGAIN 


0773 








/FIRST MOVE PTR 16 TO START OF NEXT SPECTRA FROM END OF THIS 


0774 


07 11 


1020 


TYCIN* 


LOA I 




0775 


0712 


7774 




7774 




07 76 


0713 


6626 




JMP MV16 


/GET TO NUM PTS LOCATION WITH PTR 16 


07 77 


07 14 


66 35 




JMP A0V16 


/GET TO LAST LOCATION OF OLD SPECTRA 


1000 


0715 


6244 




JMP TRANSB 




1001 


0716 


04 70 




AHE I 




1002 


0 71 7 


672 2 




JMP TYCIB 




1003 


07 20 


6620 




JMP SET16*2 


/IF MORE SPECTRA, PROCESS 


1004 


0721 


6671 




JMP TYCIA 




1005 








/IF NO MORE SPECTRA 


1006 


0722 


1020 


TY CI Bf 


LOA I 




1007 


0723 


0001 




1 /BUMP 


RET 


1010 


0724 


2726 




ADO RETTY 




1011 


0725 


4726 




STC RETTY 




1012 


0726 


6000 


RETT Y » 


RETURN 




1013 








/MATCH, PRINT 


VALUES, PTR 16 AT FRST WO OF TSTNAME 


1014 


0727 


001 6 


TYC2 9 


NOP /RESET 


BY OELSPEC ROUTINE 


10 15 


07 30 


10 20 




LOA I 




1016 


0731 


77 74 




7774 




10 17 


07 32 


66 26 




JMP MV16 


/GET TO NUM PTS 


10 20 


07 33 






STC NUMPTS 


/SAVE 


10 21 


07 34 


67 26 




JMP RETTY 


/RETURN 


1022 








/PRINT SUB CONTINUED 


10 23 


07 35 


40 11 


TY T» 


STC 11 /I NI T 


LINE NUM 


1024 


0736 


20 56 


TYCIC, 


AOD NUMPTS 


1025 


07 37 


04 70 




AZE I 




1026 


0740 


7005 




JMP VI 


/IF NO PTS, NO PRINT 


10 27 


07 41 


00 17 




COM 




10 30 


0742 


4010 




STC 10 /SAVE 


- NUMPTS 


1031 


0743 


2047 


TYClOf 


ADD PRMTRS 




1032 


0744 


0017 




COM 




1033 


0745 


4007 




STC 7 /INIT 


« NUM PARA 


1034 


07 46 


00 66 


TY CI L 1 


SET I 6 




1035 


0747 


0574 




TYBl +1 




10 36 




%)C OJ, 




XSK I 11 


/STORE NEW LINE NUM 


1037 


0751 


1000 




LOA 




1040 


0752 


0011 




11 




1041 


0753 


0077 




SET I 17 




1042 


07 54 


76 74 




TYAN4A*5777 




1043 


0755 


0644 




LDF 4 




1044 


0756 


6430 




JMP DECML 




1045 


0757 


2055 




AOO SPSP 




1046 


0760 


1040 




STA 




1047 


0761 


36 75 




TYAN4A+2000 /LINE NUM SHOULD BE ONLY 2 DIG 



4 



1050 








/PROCESS NEXT POINT 


1051 


0762 


1020 


TYClFi 


LOA I 


1052 


0763 


3775 




3775 


10 53 


0764 


1106 




ADA 6 


1054 


0765 


4017 




STC 17 /SET UP FOR VALUE STORAGE VIA DECML 


1055 


0766 


6244 


P2, 


JMP TRANSB /OVERLAY BE DORA PRT ROUT 


1056 


0767 


0644 




LOT 4 /GET NEXT PT VAL IN AC 


1057 


0770 


6430 




JMP DECML /CONVERT, STORE 


1060 


0771 


0226 




XSK I 6 


1061 


077^ 


0226 




XSK I 6 /ADVANCE PTR 6 TO NEXT TTB1 PTR 


1062 


077^5 


0227 




XSK I 7 


10 63 


0 7 74 


67 62 




JMP TYCIF /GET NEXT PARAMETER 


1064 








/NO MORE PARAMETERS 


1065 






/PRINT 


LINE 


1066 


0775 


0644 




LDF 4 


1067 


0776 


2054 




ADD PI /PRNT LF,CR 


10 70 


0777 


6201 




JMP PRLF 


1071 


1000 


0061 




SET I 1 


1072 


1001 


7673 




TYAN4+5777 


1073 


1002 


6112 




JMP PRNTLN 


1074 


1005 


0230 




XSK 1 10 


1075 


1004 


6743 




JMP TYCIO /REINITIALIZE, GET NEXT POINT 


1076 


1005 


0604 


VI, 


LIF 4 /IF ALL PTS DONE, RETURN 


1077 


1006 


6005 




JMP 5 


1100 








EJECT 



i 1 01 1 








tiPRni IT T Mr Tn TRAMQrrR nATA 

/oUDnUwIilNC Ir^ftnlOrL" Uft'ft 


11 K^C 










1 1 oti 

1 X tiO 








/p TR uaq ^tabt nr put -i 


1 i 014 








/PRT 4 M A<s oMtiM uin c: nr tran<^ 


1 1 

li 13 -> 


1 0! C17 
110 V 1 


1 01 Dl 
X to 1010 




1 n A 

LU A 


11 WO 


1 Ic? 1 W 


1010 1010 




0! 

to 


11 / 


1 01 1 1 
1 It' 11 


I? 10 X ' 




cTr tdpiTao 

O ! U ! K U i An 


1 1 1 01 

iX ill? 


XIl) X^ 


1 M 99 
X 10 c c 


TpnT A1 - 
1 n U 1 Al 1 


1 n A I 9 
L U A I c 


11 11 


10 1*5 


1 01 A 1 
liO 00 




CT ATI 

b 1 A I O 


1112 


1014 


s^KJl 1 




ClR 


111*5 


101^ 






XSK I 4 


11 14 


10 16 


70 12 




JMP TRDTAl 


11 It? 


1017 


A ex fli rx 
01(7 io Id 


T n n T AO 
TRUT AR f 


RE TURN 


11 16 








/B6 PART Or SUB TO PRINT MATCHING SrtCTKA 


1117 


10 20 


06 45 


L8PRB# 


LDF 5 


11 20 


10 21 


10 20 




IDA I 


1121 


10 22 


00 03 




3 


1122 


1 Of o ^ 
1 0 iCO 


01 




Jnr rHLr /rnlNI 0 Lr 


11 (CO 


102 4 


01 01 A 1 

10 tool 




cr T T 1 


1 1 1 H 


1 01 9 ^ 
1 iC'C 9 


A 7 01 4 




Tvm *c:777 


11 


1 01 9 A 
1 V3 c O 


A1 1 9 
01 \C. 




IMP PRMTI IU /PPTMT itMI^KinUM 


I 1 A 

II 0 


10 27 


10 40 




<;t a 

0 t A 


1 1 97 
lie/ 


1 i?l "^Pl 

X iC w ItJ 


9 7 4 S 




TYn?A-f9000 /sn in 0 TO cut orr num MT<?srs 

iTUtM^<utoioio /OC.I \ \i v iw wui urr iiiwii niootio 




10 31 


00 61 




T T 1 


11 31 


1032 


6 722 




TYQ4+5777 /PRINT SPPCi NUM PK PIS 


1132 


1033 


6112 




JMP PRNTLN 


11 33 

XX vJs? 


1 R34 


2052 




Ann PI 11Q2 


11 34 

XX w~ 


Id 35 

XKp 


6201 




IMP pri r /PRT NT 2 1 r 


11 35 


10 36 


06 44 




1 nr 4 


11 3 A 


1037 


1040 




<;t a 

0 P A 






^ A 9"? 

O O (C 0 




TYAN1R*2000 /QTT Tn 0 TO PljT nTT NUM Mt^^r<! 










/TPAMC^rrp sprrTRUM mamt. mum pts of UNKNnuM 


1141 

1 1 1 1 


1 (7! 4 1 
110 " X 


00 62 




T T 9 


114 9 
1 1 *♦ c 


i 01 4 9 
1 lU ^ c 


^5 1 
\j > 0 1 




T V n7 A ♦ 1 777 


114^ 
11 


1 0! 4 ^ 


(TIM A"^ 
tOIC 0 O 




Ot 1 i o 


1 i 4 4 


1 01 4 4 
1 W " " 


A 01 A 
O O 100 




TYAM1 AaI 777 
1 TA1\|XA*1/ / ' 


1 1 4 ^5 


10 45 


00 6 4 






I 1 4A 

I I *tO 


1 01 4 A 

1 It) *to 


7 7 A 7 

/ / 0 / 




7 7 A 7 


11 *♦ / 


1 Oi 4 7 


7 01 7 




IMP TpnTA yTDAM^^rrp *>prr niamf 

jnr t r\ U 1 A / I nAlVOr tn 3r Cu IN An C 


I 1 S(?l 

II viw 


XIO Jxi 


lu u *t 




t nr 0 

LU r w 


1 1 m 

11 91 


1 01 S1 
110 -?1 


XIO lOiO 




1 n A 

t-U A 


1 X ^c. 




20 35 




PT <>UNK 42 00 0 


1153 


10 53 

Xlt» 


06 44 




1 nr 4 

LU r "t 


1 1 0^4 


1 tS4 
110 3** 


00 77 




CIC T 1 17 




XKI J J 






TV AN ir +577 7 


1 1 HA 


1056 


6 430 

w "T O KJ 




IMPnrPMI /KFT PT*» 


1 1 R7 
11 


1 171 57 


20 55 




Ann <nP ^p 

AU u or Or 


1 1 ^ CI 


XKf W W 


1040 




c;t a 

O 1 ft 


1 1 

1101 


1 01 A1 

110 oi 


36 21 

cix 




TYANlir+9000 / T N 9 n I ! TS 


11 62 








/PRINT UNKNnWN I INF 




10 62 


00 61 




SET I 1 


1 1 64 
X X y " 


10 63 


76 03 




TY AN S-f 57 77 


1165 


10 6 4 


6112 




iM p PR NT 1 N 


1166 


1065 


2055 




ADO SPSP 


1167 


1066 


0645 




Lor 5 


1170 


1067 


1040 




ST A 


1171 


10 70 


2745 




TYO2A+20 00 


1172 


1071 


0644 




Lor 4 


1173 


1072 


1040 




STA 


1174 


10 73 


3623 




TYANlB+2000 /RESTORE IT 


1175 


1074 


1020 




LOA I 


1176 


1075 


0003 




3 


1177 


1076 


6201 




JMP PRLF /PRINT 3 LF 



12 00 


1077 


06 45 




LOF 5 




1201 


1100 


0061 




SE T I 1 




1202 


1101 


6/13 




TY03*5777 




1203 


1102 


61 12 






/PRINT LIB 


1204 


1103 


20 52 




ADO PLUS2 




1205 


1104 


6201 




JMP PRLF 


/PRINT 2 LF 


1206 


1105 


0061 




SET I 1 




1207 


1106 


6722 




TY04+5777 




1210 


1107 


6112 




JMP PRNTLN 


/PRINT SPFC* NUM PK PTS* MIS<^F«; 


1211 


1110 


2052 




ADD PLUS2 




1212 


1111 


6201 




JMP PRLF 


/PRINT 2 LF 


1213 


1112 


0076 




SET I 16 




1214 


1113 


2401 




2401 




1215 


11 14 


66 20 


LBPR X, 


JMP SET16 + 2 




12 16 


11 15 


007 7 




SET I 17 




1 21 7 


1 11 6 


3606 




TY ANl +2000 


/INIT FOR SP EC TRANS 


1220 


1117 


62 44 


LB PR C» 


JMP TRaNSR 


/P TR 16 aT INIT iOr SPFC 


122 1 


112 0 


0450 




AHE /IS 


THIS T HF F ND 


1222 


1121 


7124 




JMP LBPRD 




1223 


1122 


06 04 




L I F 4 


/Y . r y t T 


1224 


1123 


63 70 




JMP LBPRRT 




1225 


1124 


6217 


LBPRD* 


JMP TRNSMO 


/NO* TRANSFER DATA 


1226 


1125 


1016 




LD A 16 




1227 


1126 


0450 




A2E /IS 


SPECTRUM DELETED « TAPE NAME=g 


1230 


1127 


7137 




JMP LBPRF 




1231 


1130 


6244 




JMP TRANSB 


/YFS . GET P AST I T 


12 32 


11 31 


62 44 




JMP TRANSe 




1233 


1132 


6244 




JMP TRANS^? 


/Tn PARA PTS 


1234 


11 33 


6635 




IMP Anvi6 


/TO lAST SPErTRUM PT 


1235 


1134 


0075 




SET I 15 




1236 


1135 


7767 




77 67 




1237 


1136 


7115 




JMP lBPRC«2 


/TRY AGAIN 


12 40 








/SET UP REST 


OF LINE 


1241 


1137 


6244 


LBPREi 


JMP TRANSB 




12 42 


11 40 


62 44 




JMP TRANSB 




1243 


1141 


6244 




JMP TRANSB 




1244 


11 42 


0077 




SET I 17 




1245 


1143 


7620 




TYAN1F*5777 




1246 


1144 


06 44 




LDF 4 




12 47 


1145 


64 30 




JMP DECML 


/CONVERT NUM PK PTS INTO TEXT BUFF 


1250 


1146 


20 55 




ADD SPSP 




1251 


1147 


1040 




STA 




12 52 


11 50 


3621 




TYANIF ^2000 


/WITH 2 DIGITS ONLY 


1253 


1151 


0647 




LDF 7 




1254 


1152 


1016 




LOA 16 




1255 


1153 


0600 




LIF 0 /GO 


TO B0 PORTION WITH NUM PTS IN AC 


1256 


1154 


7054 




JMP LBPRF 




1257 








/FIND SPECTRA MATCHt YES, AC=0» STOP LAST SPEC NMLOC 


1260 








/NO, AC NOT = 


0 ^BUT, INIT BLK NUM IN AC CALL 


12 61 


1 i t>5 


46 65 


FNOSPB 


STC TYCSBl 


/STORE INIT BLK NUM 


1262 


1156 


2000 




ADD 0 




1263 


1157 


5171 




STC FNORT 




1264 


1160 


1020 




LOA 1 




1265 


1161' 


6726 




JMP RETTY 




1266 


1162 


4727 




STC TYC2 


/SET UP FIND SPEC ROUTINE 


1267 


1163 


3173 




ADO P16 




12 70 






/AVOID 


HEADER PRINTOUT 


1271 


1164 


4707 




STC TYCIX 




12 72 


1165 


66 62 




JMP TYCSB+1 


/GET SPEC PT 


1273 


1166 


7201 




JMP FNDSPC 




1274 


116 7 


7172 




JMP RSTRTY 


/NO MATCH. RES'rORE 


1275 


1170 


20 42 




ADD LF 




12 76 


11 71 


6000 


FNDRTi 


RETURN /RETURN, AC* 



12 7 7 


11 72 


1020 


RSTRTY , 


10 A I /RESTORE FIND SPEC ROUT 


1300 


1173 


0016 


P16, 


16 


1>5 01 


11 74 


4727 




STC TYC2 


1302 


1175 


1020 




IDA I 


1303 


1176 


6531 




JMP TYB 


1 304 


1 177 


4707 




STC TYCIX 


1305 


1200 


60 00 




JMP 0 


1 306 


1201 


7172 


FNDSPC » 


JMP RSTRTY /MATCH* RESTORE 


1307 


1202 


7171 




JMP FN CRT /0 IN AC 


1310 








/SUBROUTINE TO STORE DATA WD IN THE AC IN THE 


1311 








/NEXT LOCATION IN A DATA BLK 


1312 








/IF NEXT LOC LAST IN BLOCKi GET NEW DATA BLK STORE 


1313 

X w X W 








/SET BIT MAP ETC, 


13 14 


1203 


0647 


STRLF » 


LOT 7 




X fc sw "f 


1056 




STA 16 /STORE VALUE 




1205 


1000 




LO A 




1 9 CI A 


0000 




0 




12 07 


5233 




STC STHTRT 


13 91 
X^ cx 


12 10 


02 36 




XSK I 16 /IS THIS THE END OF A BLOCK 


1322 


1211 


2016 




ADD 16 


1323 


1212 


1460 




SAE I 


1324 


1213 


2777 




2777 


1325 


1214 


7231 




JMP STRTRT'2 


1326 


1215 


0604 




LIF 4 /YES 


1327 


1216 


6447 




JMP STRLFB /GET DAD SET, NEW BLK NUM IN AC 


1330 


1217 


1056 


STRLFC* 


STA 16 /STORE NEXT BLOCK 


1331 


1220 


5223 




STC STRTPA /WRITE OUT OLD BLOCK 


1332 


12 21 


6174 




JMP WTTAPE+l 


1333 








/SET NEW BLOCK IN PARA, AND PTR 16 


1334 


1222 


1020 




LDA I 


1335 


12 23 


0000 


STRTPA. 


0 /GET BLK NUM IN PARA 


1336 


1224 


0644 




LDF 4 


1337 


1225 


1040 




STA 


1340 


1226 


2075 




PARA+2002 


1341 


1227 


0076 




SET 1 16 


1342 


1230 


2 400 




2400 /INITIALISE PTR 16 


1343 


1231 


0644 




LOF 4 


1344 


1232 


0011 




CLR 


1345 


1233 


6000 


STRTRT, 


RETURN /GO BACK, AC CLEAR 


1346 








/OORETTE PRINT ROUTINE PTR FAKE 


1347 


1234 


0640 


P4, 


LOF 0 /BUMP DATA PTR 


1350 


1235 


1036 




LOA I 16 


1351 


1236 


60 00 




JMP 0 


13 52 








/SUBROUTINE TO GET DISPLAY ANSWER - NEVER CALL FROM 86 


13 53 








/STORE AC VALUE IN TEXT STRING 


1354 


1237 


0645 


GETANS, 


LDF 5 


1355 


1240 


1040 




STA 


13 56 


1241 


2021 




TXTSTR*2000 


1357 


1242 


1020 




LDA I 


1360 


1243 


0040 




40 


1361 


1244 


2040 




ADD LIFX 


1362 


1245 


5246 




STC 


13 63 


1246 


00 00 




0 /GET BACK ORIGINAL LDF 


1364 


1247 


06 05 




LIF 5 


1365 


1250 


6020 




JMP DSCALL /DO DSP, GET ANS, COULD BE IN LDF BUFF 


1366 


1251 


0644 


GTANSli 


LDF 4 


1367 


1252 


0011 




CLR /RETURN TO MAINLINE VIA 86 CALL 


13 70 


1253 


6040 




JMP LIFX 


13 71 








/SUBROUTINE TO MULTIPLY MULTMP, 


1372 








/ADD CONTENTS OF AC, STORE BACK 


1373 


1254 


0000 


MUtTMP. 


0 


1374 


1255 


0000 


MULACV » 


0 


1375 


1256 


5255 


MUIT10, 


STC MULACV 



1376 


1257 


3254 




ADD HULTMP 


1377 


1260 


1120 




ADA I /CHECK FOR OVERTLOW 


1400 


1261 


7177 




-600 /»3840 IF X10 


1401 


1262 


0471 




APO I 


1402 


1263 


7360 




JMP HULT8E 


1403 


1264 


0011 




CL R 


14 04 


1265 


3254 




ADD MULTHP 


1405 


1266 


0243 




ROL 3 


14 06 


12 67 


32 54 




ADD HULTMP 


1407 


1270 


3254 




ADD MULTMP 


14 10 


1271 


32 55 




ADD MULACV /HIGH ORDER X10 


1411 


1272 


5254 




ST C HULTMP /* AC 1 SAVE 


1412 


1273 


6000 




JH P 0 


1413 








/SUBROUTINE TO MULTIPLY MULTMP BY 8 


1414 








/ADD CONTENTS OF AC« STORE BACK 


1415 








/IF AC>7 . JUMP ILLEGAL 


1416 


1274 


1040 


MULT8» 


ST A 


1417 


1275 


1255 




HULA CV 


1420 


1276 


1560 




BCL 1 


1421 


1277 


0007 




7 


14 22 


13 00 


04 50 




AE E 


14 23 


13 01 


73 60 




JMP MULT8E /8 OR 9* JUMP ILLEGAL 


14 24 


13 02 


32 54 




ADD MULTMP 


1425 


13 03 


0243 




ROL 3 


14 26 


1304 


32 55 




ADD MULACV /ELSE MULT* ADD AC 


1427 


1305 


5254 




STC MULTMP 


14 30 


1306 


60 00 




JMP 0 


1431 








/SUBROUTINE TO PROCESS BUFFER WHOOSE LOC 


1432 








/IN PTR6« vNUM CHAR^IMAX PN PTR 7 


1433 








/AC*0ir 0ECf*3777 IF OCTAL 


1434 


1307 


00 00 


BM ULTl » 


0 


1435 


1310 


5307 


BMUUT, 


STC BHULTl 


1436 


1311 


2000 




ADD 0 


14 37 


1312 


5357 




ST C 8HULTR /SAVE RET 


1440 


1313 


5254 




STC HULTMP /INITIALISE BUFF 


1441 


1314 


0046 




SET 6 /COPY PTRS 


1442 


1315 


20 06 




20 06 


1443 


1316 


0047 




SET 7 


1444 


1317 


2007 




2007 


1445 


1320 


1326 


8MULT2# 


LOH I 6 /GET NUM IN ACi IF NOT NUMi JMP ILLEGAL 


1446 


1321 


1420 




SHD I 


1447 


1322 


3400 




3400 /IS IT END OF FIELD 


1450 


1323 


7355 




JMP BMULTS 


1451 


1324 


14 20 




SHD I 


1452 


1325 


7400 




7400 


1453 


1326 


73 55 




JHP BHULTS 


14 54 


1327 


04 70 




AHE I 


1455 


1330 


7355 




JMP BHULTS /Y£S» OUT 


1456 


1331 


1120 




ADA I 


1457 


1332 


7706 




7706 


14 60 


13 33 


04 71 




APO I 


1461 


1334 


7360 




JMP MULT8E 


14 62 


1335 


1120 




ADA I 


1463 


1336 


0011 




11 


1464 


1337 


0470 




AEE I 


1465 


1340 


0011 




CLR 


1466 


1341 


0451 




APO 


1467 


1342 


7360 




JMP HULT8E 


1470 


1343 


1500 




SRO 


1471 


1344 


1307 




BMUITI 


14 72 


13 45 


72 74 




JMP MULT8 /EITHER X8 , BIT SET 


1473 


1346 


1500 




SRO 


1474 


1347 


1307 




BMULTl 



9 



14 7D 


13 50 


ifl** 50 


SK P 




1476 


1351 


7 256 


JMP MULT 10 


/OR X10, BIT CLEAR 


14 /7 


•1 Tt RO 
13 


MOOT 

Sad cJ 


XSK I 7 




15 00 


13 i>3 


/o 20 


JMP BMULT2 


/JUMP BACK 


15 01 


13 54 


73 60 


JMP MULT8E 


/ELSE TOO MANY CHAR, ERROR 


1502 


13 55 


10 00 


BMULTS. IDA 




1503 


13 56 


12 54 


MUlTHP /restore processed NUM To AC 


1504 


1357 


6000 


BMULTR, RETURN 




1505 






/ERROR* DETERMINE CALLING BANK - 0 OR 4 


1506 


1360 


1000 


MULT8E» IDA 




1507 


1361 


00 40 


LIFX /GET UPPER«CALLiNG-FIELD 


1510 


1362 


1460 


SAE I 




1511 


1363 


0600 


600 




1512 


1364 


7373 


JMP CH8ANK 




1513 


1365 


0640 


LDP 0 




1514 


1366 


10 20 


LDA I 


/SET UP ERR CO 


1515 


1367 


4062 


4062 




1516 


1370 


3043 


STA 2003 




1517 


1371 


06 00 


LIT 0 /B0 




1520 


13 72 


77 64 


JMP ILLG 




1521 






/B4 




1522 


13 73 


06 04 


CHBANKi IIP 4 




1523 


< 1 1 A 

13 74 


07 64 


JMP MNLNER 


/JUMP MAINLINE ERROR 


15 24 






•1400 




15 25 






/DISPLAY (MINI MAGSPY ) 




1526 






/COPYRIGHT 1970 




1 R 

15^7 






/DIGITAL EQUIPMENT CORPORATI ON ,M AYNARO ,M ASS , 


1700 






/MOVING WINDOW DISPLAY 


SUBROUTINE 


iPOl 






/CUKSOR READ OUT 




i R 1 O 






/CORE OR TAPE FILE 




A Kit 






PMOOE 




15 o4 




















1 c: '< A 






/INITIAL CALL GET PARAM 


LIST 


1 Si T 7 






/SET ARGS FOR ROORA 




1 c; d m 
1 ? *t o 


























lOORA, 0 


/GET BOUNDS 


1 -5 0 


5*t W 1 


73 00 


CLA CLL 




15 4 4 


c; iTi 0 


o<: 11 


CDF 10 




1545 


54 03 


1600 


TAD 1 IDORA 


/DATA BUFFER 


15 46 


A (TiA 
5 H ]0l 


0005 


DC A I KMNFLD 


/15 BIT 


15 47 


54 05 


2200 


IS2 IDORA 


/LOWER BOUND 


1550 


5406 


1600 


TAD I lOORA 


/AT P+1, P+2 


<t R R-t 


R^ m 


oooo 


OCA I KMNAOR 


/MINFLDiMlNADR 


i R U O 


54 Vo 




ISZ IDORA 




155o 


54 11 


1600 


TAD I IDORA 


/UPPER BOUND 


i R R^ 

ID 54 


R^ i O 

54 \c 


00 0/ 


DCA I KMXFLD 


/AT P+3. P*4 


1R RR 
15 55 


Rd 1 ^ 
5*1 10 




ISH IDORA 




155 6 


5 414 


/ loks 1 


lAC 


/ROORA USES 


15 57 


54 15 


1600 


TAD I IDORA 


/MAX+1 


i 5 0 W 


P *t 1 0 


0 0 H 


DCA I KMXAOR 




•1 K A 1 
1 ^ 01 


5 *♦ 1 ' 


/ K/ icJ *♦ 


RAL 




1562 


5420 


1637 


TAD I KMXFLD 




15 63 


54 21 


3637 


DCA I KMXFLD 




1564 


5422 


22 00 


ISZ IDORA 




1565 


5423 


1600 


TAD I IDORA 


/Y SHIFT 


1566 


54 24 


3020 


DCA YSHFT 




15 67 


54 25 


2200 


ISZ IDORA 




1570 


5426 


1600 


TAD I IDORA 


/Y SCALE 


1571 


5427 


3643 


OCA I KYSCAL 




1572 


5430 


1635 


TAD I KMNFLD 


/INITIALIZE 


1573 


5431 


3641 


DCA I K8UFHI 


/WINDOW 



4 W 7 A 

X / *» 


XO 

54 Oc 




543 3 


15/0 


54 0** 


ID / / 


5^ 05 


16 00 


54 00 


16 01 


r; ii "i 7 
5*t 0 / 


1 A no 

10 10 4i 




1 A fl! ■< 


t\AA^ 
54 *tl 


10!5n 


5** 4c 




54 40 


1 A m A 
1000 


KA A A 

54 *» ■» 


1007 


54 *»5 


4 A4 m 
1 010 


C ^ ^ A 

54 4 0 


loll 


S>447 


1612 


K A da 

54S>0 


10 10 


54 51 


1614 


5452 


1615 


54 53 


1616 


3 A3 A 


1 A 1 f 

16 1 / 


54 55 


10 <:0 


t; >< A 

54 50 


1 A O i 
10 <£l 


t,. 4 K 7 
545 / 


1 A O O 

10 <:<: 


Si A AtX 

54 Du 


XO cO 




1 A 9d 
XO 


5*1 OX 


X O 


A5 
54 OiJ 


1 A 9A 
XO cO 


HA A'< 
54 00 


X OC / 






1 A A4 


1 A '^1 

xoo X 


1 d A R 
X HO > 


10 0(C 


i d A A 
!*♦ OO 


1 A < "X 
10 Oo 


1 ^ A 7 
14 0/ 


1 A "X^ 
10 o*t 


14 /ly 


1 A 'i; R 
1 0 0 :? 


1 4 / i 


1 A T A 
10 00 


■< A 70 
14 /C 


1 A 7 7 
10 0/ 


1 d 7*1 

1 4 / O 


1 A A 
1 0 nio 


14/4 


10^1 


1 /I 7 s> 
14/5 


10 *t £ 


1 4 7 A 
14/0 


t A d t 
1 0** 0 


14 7 7 
14// 


10 


15 00 


XO HP 


X5 0X 


4 A AA 
10 *»0 


15 tfc 


4 A ^ 7 

lO 47 


4 R 01 1 

1500 


4 A Ka 
lo !>0 


<< (% tXA 

15 04 


1 A^i 
1 0 > 1 


1 5 105 


^ A K O 
10 


•4 A 
15 00 


1 A R T 
10 ?0 


1 C?» 7 
15 k) / 


1 0 


1 5 liy 


t A K 

1 0D3 


1511 


i A 

10 50 


15 Ic 


1 as; 7 
105 / 


15 10 


16 6 0 


1 S 1 4 
15 14 


1661 


1515 


1662 


1516 


1663 


1517 


1664 


1520 


16 65 


1521 


1666 




1667 


5522 


1670 


5520 


1671 


5524 


1672 


5525 



1636 




3 642 




c;a fxn 
50 00 




SsA 1 K 

50 15 




RA -1 A 

50 lo 


KM NA On 1 


KA 7vl 

50/4 


KM Xr Lu » 


50 75 


L/ ki V A r\ ri 

KMXA uK * 


57 7 4 


K D Ur HI i 


c; 7 7 K 
5 / /5 


i/D 1 It* 1 n 
Kd Ur Lu » 


K A ^ il 

50 4 4 


V C ^ A 1 

KYSC AL $ 


0401 


P401 1 


12 44 


r\ c /^ 1 f\r* 

DoCu OC t 


3275 




1021 




4262 




1022 




4262 




1023 




4262 




10 24 




12 44 




4262 




00 00 


D T n n C" 
RT NCur * 


K*7 A A 




000 0 


OS Cn 0* 


A1 41 
0141 




77 
54 / / 




4 001 




0t0 ^4 




171 O A C 




1 (A oat 




7 7c: 7 




fAA eao 
04 5^; 




CAO A 1 




1 1 A I9( 

X 1 




fa ^ ne 


\ / r" rv A C5 n 


110 ^0 


Ub Cu OP 1 


0000 


TEMP 1 


02 43 




A a Aa 
10 40 




i ^ 7T 

14 77 




15 60 




77 701 




0c 4 1 




1120 




1524 




4002 




0 4/5 




17 42 




1 7 O 

1/62 




019 oi 
0c ^1 




0221 




1520 




3567 




7476 




0002 




73 00 




5662 




4536 


TABi 


3651 





TAD 1 KHNAOR 

OCA I K8UFL0 

JMP I IDORA 

MI NFLD 

MINAOR 

MAXFlD 

MAXAOR 

dUFHI 

BUFLO 

YSCAL 

401 

TAO P401 
DCA VCOORO 
TAO XCURHI 
JMS OSCWD 

TAD XCURLO 
JMS DSCWD 
TAO CORVAL 
JMS DSCWD 
TAD YCUR 
TAD P401 
JMS DSCWD 
0 

JMP I RDORA 
0 

LJNC 
LMODE 
STC TEMP 
STC XCORO 

SFA 

ROL I 5 
LDA 1 
•20 

LZE 

ROL 1 
ADM I 
0 

LDA I 
0 

ROL 3 
STA 
TEMP 
BCL I 
77 70 
ROL 1 
ADA I 
TAB&1777 
STC 2 

ADD VCOORO 
OSC 2 
DSC I 2 
XSK I 1 
XSK I 1 
SRO I 
3567 

JMP OS CLOP 

POP 

PMODE 

CLA CLL 

JMP I OSCWD 

4536 /60»0 

3651 



/STARTING ADDR 
/RTN TO SCR N 



/DSC X,Y COORD 
/FIELD 

/ADDRESS 

/CONTENTS OF 
/CURSR CORE LOC 
/Y COORD OF 

/CURSOR POINT 
/RESTORE USER 
/DATA FLD 
/RTN 

/DSC C(AC) 



/SAVE VALUE 
/CHAN 1 

/VC FOR FULL 
/SI2E IS «40 
/•20 FOR HALF 

/FULL CHARS ? 
/NO VC-40 
/UPDATE VC 



/I DIGIT 
/AT A TIME 
/UPDATE 
/LOW 3 BITS 
/ONLY 

/»2 AND REL 
/TO GRID TAB 



/MAKE GAP 
/BETWEEN CHARS 
/OSC 4 CHARS ? 

/NO CONT 



/RTN 



1673 


55 26 


2101 




2101 /61i 1 


1674 


5527 


0177 




0177 


1675 


5530 


4523 




4523 /od$ 2 


16 76 


5531 


2151 




2151 


1677 


5532 


4122 




412^ /6 v5i 0 


17 00 


55 33 


2651 




26 51 


1701 


5534 


2414 




2414 /6 4 » 4 


1702 


5535 


0477 




04 77 


1703 


55 36 


5172 




5172 /65» 5 


1704 


5537 


0651 




0651 


1705 


55 40 


1506 




1506 /66,6 


1706 


5541 


4225 




4225 


1707 


5542 


4443 




4443 /67,7 


1710 


5543 


6050 




6050 


1711 


5544 


0000 


RDORAf 


0 


1712 


55 45 


7300 




CLA CLL 


1713 


5546 


6214 




ROF 


1714 


5547 


1017 




TAD 2 rUOZ0 


1715 


5550 


3260 




DCA RTNCDF 


1716 


5551 


6141 




LINC 


1717 








LMODE 


1720 


1552 


0101 


CSAM 1 


CURSAM 


1721 


1553 


0341 




SCR 1 


1722 


1554 


0002 




POP 


1723 








pmooe 


1724 


5555 


1244 




TAD P401 


1725 


5556 


7141 




CIA CLL 


1726 


55 57 


61 41 




L I NC 


1727 








LMODE 


1730 


1560 


5773 




STC CURCNTal/7/ 


1731 


15 61 


0100 


WSAM » 


w INSAn 


1732 


156 2 


0344 




SCR 4 


1733 


1563 


0061 




SET 1 XCOnu 


1734 


1564 


6777 


XXCRD* 


«1000 


1735 


1565 


7600 




Jnr CUNT51/// 


17 36 






/WRI TE 


TAPE UNIT 0 


1737 






/THIS 


lo NOT UOKtTIt 


1740 






/THIS 


TC * 1 ICC TklCCDT 

IS A LIFE INotKT 


17 41 


15 66 


0041 


WTUN0» 


SE T 1 


1742 


1567 


00 00 




0 


1743 


1570 


0002 




PDP 


1744 








PMODE 


17 45 


5571 


62 11 




CDF 10 


1746 


55 72 


4443 




JMS 1 PWRITE 


1747 


5573 


00 44 




PARA0 


1750 


5574 


6141 




LINC 


1751 








LMODE 


1752 


1575 


0647 




LDF / 


1753 


1576 


00 11 




clr 


1754 


1577 


6001 




JMP 1 


1755 








PM 00 E 


1756 








PA GE 


17 57 


56 00 


00 02 


UU IN 1 9 


2 


1760 


5601 


6211 


CDF0, 


CDF 10 


1761 


5602 


3347 




DCA DBLLO 


17 62 


56 03 


13 47 




TAD DBLLO 


17 63 


56 04 


7710 




SPA CLA 


1764 


56 05 


7040 




CMA 


17 65 


56 06 


3341 




OCA OBLHI 


17 66 


56 07 


43 04 




JMS DADO 


1767 


5610 


1347 




TAG DBLLO 


1770 


5611 


33 75 




DCA 8UFL0 


1771 


5612 


13 41 




TAD DBLHl 



/SAVE USER OF 



/CURSOR 

/9 BITS COVERS 
/SCOPE 
/MAKE RANGE 
/-I TO ^1000 



/WINDOW 

/75 CENTS W0RTH 
/OVERLAYEO IF <1000 PTS 



/PUT KNOB VAL 
/IN DAC 

/PROPAGATE SIGN 
/BIT HI ORD 



/UPDATE WIN ADDR 



1772 


5613 


33 74 


1773 






1774 






1775 






i776 






1777 






2000 






2001 


5614 


4316 


2002 


5615 


0001 


2003 


5616 


0000 


2004 


5617 


7700 


20 05 


5620 


52 73 


2006 


5621 


1274 


2007 


5622 


3374 


2010 


5623 


1275 


2011 


5624 


3375 


2012 


5625 


4304 


2013 


5626 


1347 


20 14 


5627 


3375 


20 15 


56 30 


13 41 


2016 


56 31 


3374 


2017 


5632 


1375 


2020 


5633 


3304 


2021 


5634 


1052 


2022 


5635 


3025 


2023 


5636 


1374 


2024 


5637 


33 16 


2025 


5640 


4341 


2026 


5641 


1704 


2027 


5642 


1020 


20 30 


5643 


6141 


2031 






2032 


16 44 


0341 


2033 


1645 


0161 


20 34 


1646 


00 02 


2035 






2036 


56 47 


2373 


2037 






2040 


5650 


7610 


2041 


5651 


5351 


2042 


56 52 


2376 


2043 


5653 


5263 


2044 


5654 


2377 


2045 


5655 


5263 


2046 


5656 


1216 


2047 


5657 


3304 


2050 


5660 


1215 


2051 


5661 


3316 


2052 


5662 


5266 


2053 


5663 


2304 


2054 






2055 


5664 


5267 


2056 


5665 


2316 


2057 


5666 


4341 


2060 


5667 


2025 


2061 


5670 


5241 


2062 


5671 


5672 


2063 


5672 


5445 


20 64 


56 73 


4316 


20 65 


5674 


0002 


2066 


5675 


0000 


2067 


5676 


7710 


2070 


5677 


5232 



St 



{ 



OCA BUFHI 

/MUST CHK 
/WINDOW SA 
/WITH BOUNDS 
/TO MAINTAIN 
/BUFFER RING 





JHS 


BOUND 


/LOWER BOUND 


MINFLO* 


1 






MI NAOR 1 


0 








SNA 


CL A 


/LOW END WRAP? 




JMP 


CHKH I 


/NO 




TAD 


MAXFLD 


/RESET TO 




DC A 


BUFHI 


/UPPER BOUND 




TAD 


MAXADR 




WRAP t 


OCA 


BUFIO 






JMS 


DADO 


/CORRECT WRAP 




TAD 


D8LL0 


/CORRECTED 




OCA 


BUFIO 


/WINDOW SA 




TAD 


OBIHI 






OCA 


BUFHI 




SETFLO 1 


TAD 


8UFL0 


/SET DISPLAY 




DC A 


BUFP TR 


/ARCS 




TAD 


NUMDIS 






OCA 


COUNT 






TAD 


BUFHI 






DC A 


BOUND 






JMS 


SETOF 




NXTPNT , 


TAD 


I BUFPTR 






TAD 


YSHFT 


/OFF SET 




UINC 






LMODE 




YSCAL# 


SCR 


1 


/SCALE FACTOR 




OIS 


I XCORD 






POP 








PMODE 






IS2 


CURCNT 


/READY TO PIS 








/CURSOR ? 


CURRTN, 


SKP 


CLA 


/NO 




JMP 


CURDIS 






ISZ 


EN OLD 


/CHK FOR HI 




JMP 


OKEND 


/END WRAP 




IS2 


ENDHI 






JMP 


OKEND 






TAD 


MINAOR 


/RESET TO 




OCA 


BUFPTR 


/LOWER BOUND 




TAD 


MINFLD 






OCA 


BOUND 






JMP 


NXTDF 




OKEND» 


ISZ 


BU FPTR 


/CHK FOR FIELD 








/BOUNDARY 




JMP 


OKFLD 


/ITS OK 




ISZ 


BOUND 


/SET NXT FLD 


NXTDF, 


JMS 


SETDF 




OKFUDi 


ISH 


COUNT 


/512 PNTS ? 




JMP 


NXTPNT 


/NO 




JMP 


I 


/DSC READ OUT 




OSCUOC 




CHKHW 


JMS 


BOUND 


/CHK UPR BOUND 


HA XF LD 1 


2 






MAXADR# 


0 






M70, 


SPA 


CLA 


/HI WRAP ? 




JMP 


SETFLO 





2071 


5700 


1215 




TAO 


MINFLO 


/YES 


207 2 


5701 


3374 




OCA 


BUFHI 


/RESET TO 


2073 


5702 


1216 




TAD 


MINADR 


/LOWER BOUND 


2074 


5703 


5224 




JMP 


WRAP 




20 75 






/D0U8L E 


PRECISION ADO 




20 76 






/ ( DBLH I > 


08L10)*(BUFHI,BUFL0) 


2077 






/RESUL T 


IN (OBLHI. OBlLO) 


2100 






/ ( 8UFH I 


8UFL0)=IN|TIAL 


SCOPE ADDRESS 


2101 














2102 


5704 


0000 


DADO f 


0 






2103 


57 05 


7300 




CIA 


CLL 




2104 


5706 


1347 




TAD 


OBLLO 




2105 


5707 


1375 




TAD 


BUFLO 




2106 


5710 


3347 




OCA 


OBLLO 




2107 


5711 


7004 




RAL 






2110 


5712 


1341 




TAD 


OBLHI 




21 11 


5713 


13 74 




TAO 


BUFHI 




2112 


5714 


3341 




DCA 


OBLHI 




2113 


5715 


5704 




JMP 


1 OAOD 




2114 














2115 






/ADD -UPPER 


OH -LOWER 


BOUND 


2116 






/TO (BUFHI ,BUrLO) 




2117 






/b uUNU 


IS AT Pn,P*2 OF CALL 


2120 














2121 


5716 


0000 


t5U Uix U » 


0 






2122 


5717 


1716 




TAD 


I oUUNU 


/oc fT\M nr ADr* 
/CO LUn Ur Mnij 


2123 


5720 


7140 




r* M A 


CL L 




2124 


57 21 


33 41 




np A 
UL A 






2125 


57 22 


2316 




Tea 


BOUND 




2126 


5723 


17 16 




TAO 


I BOUND 




2127 


5724 


7041 




CIA 






2130 


5725 


7430 




SHL 






2131 


57 26 


2341 




ISZ 


OBLHI 




2132 


5727 


7000 


H1000I 


NOP 






2133 


57 30 


3347 




OCA 


OBLLO 




2134 


5731 


43 04 




JMS 


DADO 




21 35 


57 32 


13 41 




TAD 


OBLHI 




2136 


5733 


337 7 




DCA 


ENDHI 


/DAC HOLDS -NUM 


2137 


57 34 


1347 




TAD 


OBLLO 


/TO END OF BUF 


2140 


5735 


3376 




OCA 


ENOLO 


/NO MATTER FOR 


2141 












/LOW END WRAP 


2142 


57 36 


13 41 




TAD 


OBLHI 


/TO CHK FOR 


2143 


5737 


2316 




IS2 


BO UNO 


/UPON RTN 


2144 


5740 


5716 




JMP 


I BOUND 




21 45 


57 41 


0000 


SETOr. 


0 




/SET 8 FIELD 


2146 


5742 


1316 




TAO 


BOUND 


/REL TO BOUND 


2147 


5743 


7106 




CLL 


RTL 




2150 


5744 


7004 




RAL 






2151 


57 45 


1017 




TAO 


2 FLOZ0 




2152 


5746 


3347 




DCA 


t*l 




2153 


5747 


00 00 


DBLLO, 


0 






2154 


5750 


5741 




JMP 


I SETDF 




21 55 


57 51 




CUROIS , 


OCA 


YCUR 


/OISP CURSOR 


2156 


5752 


1316 




TAD 


BOUND 


/SAVE X,Y 


2157 


5753 


30 21 




DCA 


XCURHI 


/COORDINATES 


2160 


5754 


1304 




TAD 


BUFPTR 




2161 


57 55 


3022 




DCA 


XCURLO 




2162 


5756 


1704 




TAD 


I BUFPTR 




2163 


5757 


3023 




DCA 


CORVAL 




2164 


5760 


1276 




TAO 


M70 




2165 


5761 


3347 




DCA 


OBLLO 




2166 


5762 


1024 




TAD 


YCUR 




2167 


5763 


6141 


CURLOP, 


LINC 





2170 








LMOOE 


2171 


1764 


04 65 




SNS I 5 


2172 


1765 


00 16 




NOP /CHANGE TO J MP FREE 


2173 






/If FREE CURSOR MOTION DESIRED 


2174 


1766 


0141 




OIS XCDRD 


2175 


1767 


0002 




POP 


2176 








PMODE 


2177 


5770 


2347 




IS2 DBLLO 


2200 


5771 


5363 




JMP CURLOP 


2201 


5772 


5250 




JMP CURRTN 


2202 


5773 


0000 


CURCNT, 


0 


2203 






/THESE 5 GUYS MAY BE PAGE 0 


2204 


5774 


0001 


BUFH I , 


1 


2205 


5775 


0000 


BUFLO, 


0 


2206 


5776 


0000 


ENDLO. 


0 


2207 


5777 


0000 


ENDHI. 


0 


22 10 








D8LH|=SETDF 


2211 








BUFPTR=DADO 


2212 








XC0RD=1 


2213 








LHODE 


2214 








CURSAM=SAM 1 /CURSOR KNOB 


2213 








WiNSAMsSAM 0 /WINDOW KNOB 


2216 








FRESAMaSAM 5 /FREE CURSOR 


2217 








SCALE^SCR 


2220 








SC12BU=SCR 3 /SCALE FACTOR 


2221 








/12 BIT UNSIGNED 


2222 








OF12BU=4000 /Y OFFSET FOR 


2223 








/1 2 BIT UNSIGNED 


2224 






/THESE 


6 GUYS NUST BE PAGE 0 


2225 






/THEY ARE ALL CONTIGUOUS AND DEFINED 


2226 






/RELATIVE TO YSHFT BUT THIS IS NOT 


2227 






/A REQUIREMENT 


22 30 








YSHFT=20 


22 31 






/THE 4 


SCOPE READ OUT VALUES 


22 32 








XCURHIsYSHFT+1 


22 33 








XCURLOsXCURHI^l 


2234 








CORVAL=XCURLO*1 


2235 








YCUR=C0RVAL*1 


2236 








C0UNT=YCUR*1 


2237 






/AN EXAMPLE TO DISPLAY ALL OF FIELD 1 


2240 






/12 BIT 


UNSIGNED DATA 


2241 






/PMODE 




2242 






/*S0ME WHERE 


2243 






/JMS I 


KIOORA /INITIAL CALL 


2244 






/I 


/FLO 


22 45 






/0000 


/ADDR 


2246 






/I 


/FLD 


2247 






/7777 


/ADDR 


22 50 






/0Fi2BU 


/Y OFF SET 


22 51 






/SC12BU 


/Y SCALE FAC 


22 52 






/JMS I 


KRDORA /REFRESH CALL 


2253 






/J HP 


1 


22 54 






/K IDOR A 


# IDOR A 


2255 






/KRDORA 


,RDORA 


2256 








CHAIN "LIFE B5" 



00 00 *2 0 

0001 /THIS BANK WILL CONTAIN 

0002 /ALL TEXT STATEMENTS FOR QANDA 

0003 /IN ADDITION TO THE CALLING 

0004 /SEQUENCE FOR QANOA, AND QANDA ITSELF* 

0005 /IN THE LAST TWO BLOCKS 

0006 SEGMNT 5 



0007 






00 10 






0011 


0020 


7000 


0012 






0013 


0021 


0000 


0014 


0022 


0000 


0015 


0023 


70 53 


0016 


0024 


06 06 


0017 


00 25 


7251 


0020 


0026 


0614 


0020 


0027 


1106 


0020 


0030 


0540 


0020 


0031 


1123 


0020 


0032 


4003 


0020 


0033 


2205 


0020 


0034 


0124 


0020 


0035 


0504 


00 20 






0021 


0036 


5643 


0021 






0022 


0037 


4740 


0022 


0040 


4347 


0022 






0023 


0041 


4043 


0023 






0024 


0042 


4740 


0024 


0043 


4347 


0024 


0044 


1411 


0024 


0045 


0605 


0024 


0046 


4025 


0024 


0047 


1611 


0024 


0050 


2440 


0024 


0051 


7462 


0024 


0032 


34 00 


00 24 






0025 


0053 


1617 


0025 


0054 


2440 


0025 


0055 


1411 


0025 


0056 


0605 


0025 


0057 


4024 


0025 


0060 


0120 


0025 






0026 


0061 


0556 


0026 


0062 


4347 


0026 






0027 


00 63 


4043 


0027 






00 30 


0064 


47 40 


0030 


0065 


4347 


0030 


0066 


1116 


0030 


0067 


1124 


0030 


0070 


11 01 


0030 


0071 


1411 


0030 


0072 


3205 


0030 


0073 


7740 


0030 


0074 


3140 


0030 


0075 


1722 


0030 


0076 


4016 


0030 


0077 


7240 


0030 


0100 


7461 


0030 


0101 


3400 


0030 






0031 


0102 


0606 



•20 

/DISPLAY UNTIL ANSWER GIVEN 
OSCALL * JMP OAINIT 
/QANDA PTRS 
TXTSTR f 0 

ANSWER, 0 

JMP QARFSH 
LIT 6 

JMP GTANSl 



OSPl, TEXT QFLIFE IS CREATED, 



LIFE UNIT <2\Q 



DSP2, TEXT QNOT LIFE TAPE, 



INITIALIZE? Y OR N! <1\Q 



0031 


0103 


2516 


0031 


0104 


0324 


0031 


0105 


1117 


0031 


0106 


1623 


00 31 






0032 


0107 


7243 


00 32 






00 33 


0110 


4740 


003 3 


0111 


4347 


0033 






Vtf 


01 12 


4043 




01 13 


4761 


0034 


0114 


5640 




01 15 


0705 


1710114 


0116 


1605 


00 34 


01 17 


22 01 


10 iw O 


01 20 


24 05 


00 34 


0121 


4016 


00 34 


0122 


0527 


00 34 


01 23 


4023 


0034 


0124 


20 05 


00 34 


0125 


03 24 


0034 


0126 


2225 


0034 






0035 


0127 


1543 


0035 






0036 


0130 


4740 


0036 


0131 


4347 


0036 


0132 


6256 


0036 


0133 


4020 


0036 


0134 


2211 


00 36 






0037 


0135 


1624 


00 37 


0136 


4347 


0037 






00 40 


0137 


4043 


00 40 


01 40 


4763 


00 40 


01 41 


56 40 


00 40 


0142 


0522 


0040 


0143 


0123 


00 40 






0041 


0144 


0543 


0041 






0042 


0145 


4740 


0042 


0146 


4347 


0042 


0147 


6456 


0042 


0150 


4003 


0042 


0151 


0114 


0042 


0152 


1440 


00 42 


0153 


0411 


00 42 






00 43 


0154 


0114 


0043 


0155 


4347 


0043 






0044 


0156 


4043 


0044 






0045 


0157 


4740 


0045 


0160 


4340 


0045 


0161 


0310 


0045 


0162 


1711 


0045 


0163 


0305 


0045 


0164 


7240 


0045 


0165 


7461 



TEXT QFFUNCTIONS: 



1, GENERATE NEW SPECTRUM 



2. PRINT 



3. ERASE 



4, CALL DIAL 



004^ 
004^ 
0046 
0046 

0046 
0046 
0046 
0046 
0046 
0046 
00 46 
0046 
0046 
0047 
0050 
0050 
0050 
0050 
0050 
00 50 
0050 
0051 
0051 
0051 
00 51 
0051 
0051 
0051 
0051 
0051 
0051 
0051 
0052 
0052 
0053 
00 53 
00 53 
00 53 
0054 
0054 
0054 
0054 
0054 
00 54 
0054 
0054 
0055 
0055 
0055 
00 55 
0055 
0055 
0055 
00 55 
0056 
0056 
0056 
0056 
0057 
0057 
0057 
0057 
0057 



0166 3400 



0167 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0200 



0201 
0202 
0203 
0204 
0205 
02 06 

0207 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0220 



0222 
02 23 
0224 

0225 
0226 
0227 
0230 
0231 
0232 
0233 

0234 
0235 
0236 

0237 
0240 
0241 
0242 

0243 
0244 
0245 

0246 
0247 
0250 
0251 
0252 



1116 
2324 

2225 
1505 
1624 
4016 
0115 
0540 
4074 
6434 



1605 
2740 
1116 
2324 
2225 
1505 

1624 
4301 
0303 
0520 
2477 
4031 
4017 
2240 
1672 
4074 



choice: <i\Q 



0221 6143 



4740 
4347 
2431 

2005 
4347 
6140 
1106 
4030 
4017 
1614 

3143 
4762 
4011 

0640 
3040 
0116 
0440 

3143 
4774 
6134 

2516 
1124 
4016 
0115 
0540 



DSPIPI, TEXT QINSTRUMENT NAME <4\Q 

/ABOVE ALSO USED IN DELETE 



DSP1P2, TEXT QISIEW INSTRUMENT 



ACCEPT? Y OR NJ <1 



TYPE 



1 IF X ONLY 



2 IF X AND Y 



<1\Q 



0057 0253 4074 

0057 0SP1P3, TEXT QUNIT NAME <4 

0060 0254 6443 
0060 

0061 0255 4740 

0061 0256 4347 
0061 

0062 0257 4043 
00 62 

0063 0260 4740 
0063 0261 4347 
0063 0262 2320 
0063 0263 0503 
0063 0264 2422 
0063 0265 2515 
00 63 02 66 4016 
0063 0267 0115 
0063 0270 0540 

0063 0271 4074 

00 63 SPECTRUM NAME <8 

0064 0272 7043 
0064 0273 4774 
0064 0274 7034 

0064 <8\Q 

0065 0275 2516 
0065 0276 1124 
0065 0277 4016 
0065 0300 2515 
0065 03 01 02 05 
0065 0302 2240 
0065 0303 4074 

0065 DSP1P4, TEXT QUNIT NUMBER <2 

0066 0304 6243 
0066 

0067 0305 4740 
0067 0306 4347 
0067 

0070 0307 4043 

0070 0310 4723 

0070 0311 2401 

0070 0312 2224 

0070 0313 4002 

0070 0314 1417 

0070 0315 0313 

0070 0316 4040 

0070 START BLOCK <3 

0071 0317 7463 

0071 0320 4347 
00 71 

0072 0321 4043 
0072 

0073 0322 4740 
0073 0323 4347 
0073 0324 2024 
0073 0325 2340 
0073 0326 1116 
00 73 0327 4023 
00 73 03 30 2005 
0073 0331 0324 
0073 0332 2225 
0073 0333 1540 
0073 0334 4074 
0073 0335 6434 



0073 






0074 


0336 


0114 


0074 


0337 


1417 


00 74 


0340 


2701 


00 74 


0341 


0214 


0074 


0342 


0540 


0074 


0343 


0522 


00 74 


0344 


2217 


00 74 


0345 


2240 


0074 


0346 


2417 


0074 


0347 


1405 


0074 


0350 


2201 


00 74 


0351 


1603 


0074 






0075 


0352 


0572 


0075 


0353 


4347 


0075 






0076 


0354 


4043 


0076 


0355 


4761 


00 76 


0356 


5540 


0076 


0357 


2005 


0076 


0360 


2240 


0076 


0361 


0305 


0076 






0077 


0362 


1624 


0077 


0363 


4347 


0077 


0364 


6255 


0077 


0365 


4001 


0077 


0366 


0223 


0077 


0367 


1714 


0077 


0370 


2524 


0077 






0100 


0371 


0543 


0100 






0101 


0372 


4740 


0101 


0373 


4347 


0101 


0374 


0310 


0101 


0375 


1711 


0101 


0376 


0305 


0101 


0377 


7240 


0101 


0400 


4074 


0101 






0102 


0401 


6143 


0102 






0103 


04 02 


4740 


0103 


0403 


4347 


0103 






0104 


0404 


4043 


0104 


0405 


4730 


0104 


0406 


4024 


0104 


0407 


1714 


0104 


0410 


0522 


0104 


0411 


0116 


0104 


0412 


0305 


0104 


0413 


7240 


0104 


0414 


4074 


0104 






0105 


0415 


6343 


0105 






0106 


0416 


4740 


0106 


0417 


4347 


0106 


0420 


3140 


0106 


0421 


2417 



PIS IN SPECTRUM <4\Q 



0SP2P1, TEXT QALLOWABLE ERROR TOLERANCE! 



1- PER CENT 



2- ABSOLUTE 



CHOICEJ <1 



X TOLERANCE: <3 



0106 


0422 


1405 


0106 


0423 


2201 


0106 


0424 


1603 


0106 


0425 


0572 


0106 


0426 


4040 


0106 


0427 


7463 


0106 


04 30 


3400 


0106 






0107 


0431 


4015 


0107 


0432 


1123 


0107 


0433 


2305 


0107 


0434 


2340 


0107 


04 35 


0114 


0107 


0436 


1417 


0107 


04 37 


2705 


0107 


0440 


0472 


0107 


0441 


4040 


0107 


0442 


7462 


0107 


0443 


3400 


0107 






0110 


0444 


0640 


0110 


0445 


2022 


0110 


0446 


1116 


0110 






0111 


0447 


2472 


0111 


0450 


4347 


0111 






0112 


0451 


4043 


0112 






0113 


0452 


4740 


0113 


0453 


4347 


0113 


0454 


6156 


0113 


0455 


4011 


0113 


0456 


1604 


0113 






0114 


0457 


0530 


0114 


0460 


4347 


0114 






0115 


0461 


4043 


0115 


0462 


4762 


0115 


0463 


5640 


0115 


0464 


1411 


0115 


0465 


0222 


0115 


0466 


0122 


0115 


0467 


3140 


0115 


0470 


2320 


0115 


0471 


05 03 


0115 


0472 


2422 


0115 






0116 


0473 


2515 


0116 


0474 


4347 


0116 






0117 


0475 


4043 


0117 


0476 


4763 


0117 


0477 


5640 


0117 


0500 


0530 


0117 






0120 


0501 


1124 


0120 


0502 


4347 


0120 






0121 


0503 


4043 


0121 






0122 


0504 


4740 



Y tolerance: <3\Q 



DSP2P2, TEXT Q MISSES ALLOWED: <2\Q 



DSP3P1, TEXT QF PRINT: 



1, INDEX 



2, LIBRARY SPECTRUM 



3, EXIT 



0122 
0122 
0123 
0123 
0123 
0123 
0123 
0123 
0123 
0123 
0124 
0124 
0124 
0125 
0125 
0125 
0126 
0126 
0127 
0127 
0127 
0127 
0127 
0127 
0127 
0127 
0127 
0127 
0127 
0127 
0127 
0130 
0130 
0130 
0131 
0131 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
01 32 
0133 
0133 
0133 
0133 
0133 
0134 
0135 
0135 
0135 
0135 
0136 
0136 
0137 
0137 
0137 



0505 4347 



0506 
0507 
0510 
0511 
0512 
0513 
0514 

0515 
0516 

0517 
0520 



0522 
0523 
0524 
0525 
0526 
0527 
0530 
0531 
0532 
0533 
0534 
0535 

0536 
0537 



0541 
0542 

0543 
0544 
0545 
0546 
0547 
0550 
0551 
05 52 
0553 

0554 
0555 
0556 
0557 



0560 
0561 
0562 



4043 
4703 
1017 
1103 
0572 
7461 
3400 

0640 
2431 

2005 
4347 



0521 4043 



4740 
4347 
1116 
2324 
2225 
1505 
1624 
4016 
0115 
0572 
4040 
4040 

7464 
4347 



0540 4043 



4740 
4347 

2320 
0503 
2422 
2515 
4016 
0115 
05 72 
4040 
4040 

74 70 
4347 
7470 
3400 



0605 
2201 
2305 



0563 7243 



CH0!CE::<1\Q 



0SP3P2, TEXT QF TYPE 



INSTRUMENT NAME! 



SPECTRUM name: 



<8 



<8\Q 

/DSP 4.2 IS DSP 1. 1 



DSP4P1, TEXT QFERASE: 



05 64 
0565 



4740 
4347 



0 



0i40 


05 66 


4043 


0140 


0567 


4761 


0140 


0570 


5640 


0140 


0571 


0516 


0140 


05 72 


2411 


0140 


0573 


2205 


0140 


0574 


4014 


0140 


0575 


1102 


0140 


0576 


2201 


01 40 






0141 


0577 


2231 


0141 


0600 


4347 


01 41 


06 01 


62 56 


0141 


0602 


4 005 


0141 


06 03 


16 24 


0141 


0604 


1122 


0141 


06 05 


05 40 


0141 


0606 


1116 


0141 


0607 


2324 


0141 


0610 


2225 


0141 


0611 


15 05 


0141 






0142 


0612 


1624 


0142 


0613 


4347 


0142 


0614 


63 56 


0142 


0615 


4023 


0142 


0616 


1116 


0142 


0617 


0714 


0142 


0620 


0540 


0142 


0621 


2320 


0142 


06 22 


0503 


0142 


0623 


2422 


0142 






0143 


0624 


2515 


0143 


0625 


4347 


0143 


0626 


6456 


0143 


0627 


4005 


0143 


06 30 


3011 


0143 






0144 


0631 


2443 


0144 






0145 


0632 


4740 


0145 


0633 


4347 


0145 






0146 


0634 


4043 


0146 


0635 


4703 


0146 


0636 


1017 


0146 


0637 


1103 


0146 


0640 


0574 


0146 


0641 


6134 


0146 






0147 


0642 


0640 


0147 


0643 


2320 


0147 


0644 


0503 


0147 


0645 


24 22 


0147 


0646 


2515 


0147 


0647 


4016 


0147 


0650 


0115 


0147 


0651 


0572 


0147 


0652 


4040 


0147 


0653 


4040 


0147 


0654 


7464 


0147 


0655 


3400 



1, ENTIRE LIBRARY 



2. ENTIRE INSTRUMENT 



3. SINGLE SPECTRUM 



4. EXIT 



CH0ICE<1\Q 



0147 DSP4P3. TEXT QT SPECTRUM NAME: <4\Q 

0150 0656 4040 DSPERB, 4040 

0151 0657 0522 
0151 06 60 2217 

0151 DSPERA, TEXT QERROR 

0152 0661 2240 
0152 0662 4347 

0152 Q 

0153 0663 3131 ERRCXX, 3131 /XX 

0154 0664 4043 4043 

0155 0665 4043 4043 



0156 0666 2022 

0156 0667 0523 

0156 0670 2340 

0156 0671 1411 

0156 0672 1605 

0156 0673 4006 

0156 0674 0505 

0156 0675 0454 

0156 0676 4024 

0156 0677 2231 

0156 0700 4001 

0156 0701 0701 

0156 0702 1116 

0156 0703 7461 

0156 0704 3400 



0156 TEXT QPRESS LINE FEED, TRY AGAIN<1\Q 

01 57 0705 4040 TYOl, 4040 

0160 0706 4040 4040 

0161 0707 2516 
0161 0710 1316 
0161 0711 1727 
0161 0712 1672 

0161 TEXT OUNKN OWNtQ 

0162 0713 0000 0000 

0163 0714 4040 TY03, 4040 

0164 0715 4040 4040 

0165 0716 1411 
0165 0717 0222 
0165 0720 0122 
0165 0721 3172 

0165 TEXT QLI8RARYJ Q 

0166 0722 0000 0000 

0167 0723 4040 TY 04 , 4040 

0170 0724 4040 4040 

0171 0725 4040 4040 

0172 0726 2320 
0172 0727 0503 
0172 0730 2422 
0172 07 31 2515 

0172 TEXT QSPECTRUMQ 

0173 0732 4040 4040 

0174 0733 4040 4040 

0175 0734 4040 4040 

0176 0735 4040 4040 

0177 0736 40 40 4040 

0200 0737 4040 4040 

0201 0740 2013 
0201 0741 5640 
0201 0742 2024 
0201 0743 2340 

0201 TEXT QPK, PTS Q 

0202 0744 4040 4040 



0203 

0204 

0204 

0204 

0204 

0205 

0206 

0207 

0210 

0211 

0212 

0213 

0214 

0214 

0214 

0214 

0214 

0214 

0214 

0214 

0214 

0214 

0214 

0214 

0214 

0215 

0216 

0217 

0220 

0221 

0222 

0223 

0224 

0225 

02 26 

0227 

0230 

0231 

0232 

0233 

0234 

0235 

02 36 

0237 

0240 

02 41 

0242 

0243 

3244 

0245 

0246 

0247 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0260 

02 61 

0262 



0745 
0746 
0747 
0750 

0751 
0752 
0753 
0754 
0755 
0756 
0757 
0760 
0761 
0762 
0763 
0764 
0765 
0766 
0767 
0770 
0771 
0772 
0773 



4040 
1511 
2323 
0523 

0000 
4040 
4040 
4040 
40 40 
4040 
4040 
1116 
0405 
3040 
1706 
4014 
1102 
2201 
2231 
4023 
2005 
0324 
2201 



TY02A, 4040 /SET TO 0 IF UNKNOWN LINE 



TEXT QMISSESQ 
0000 

TY05, 4040 
4040 
4040 
4040 
4040 
4040 



TEXT QINOEX OF LIBRARY SPECTRAQ 



0774 0000 



/QANDA SUBROUTINE FOR THE 
/P DP «1 2 
«100 0 
/ 







/TO HERE 


TO 


INITIALI2E 


THE ROUTINE 


1000 


1020 


/ 

QAINIT, 


LDA 


I 


/SAVE JMP RETURN 


1001 


0002 




2 






1002 


2000 




ADO 


0 




1003 


10 60 




ST A 


I 




1004 


00 00 


QA8i 


0 




/JMP +3 


1005 


32 00 




ADO 


QAL+3 




1006 


4001 




STC 


1 


/PTR TO FIRST PARAM 


1007 


1001 




LDA 


1 


/GET FIRST PARAM 


1010 


3264 




ADD 


QAQ+1 


/PTR TO HALFWORD-1 


1011 


5057 




STC 


QAG-3 




1012 


10 21 




LDA 


I 1 




1013 


5052 




STC 


QARFSH-1 




1014 


4006 




STC 


6 


/XR6 USED AS A SWITCH. = 


1015 


0043 


QACA . 


SET 


3 /XR3 TO PTR TO ANSWERS 


1016 


1052 




QARFSH^l 




1017 


0044 




SET 


4 


/XR4 TO PTR TO QUESTIONS 


1020 


1057 




QAG = 


;3 














/TO HERE IF FIRST TIME T 


1021 


0041 




SET 


1 




1022 


0004 




4 




t 


1023 


7270 




JMP 


QAT 




1024 


0016 




NOP 




/F 


1025 


1324 




LDH 


I 4 


/H, BUMP PTR IF H OR F 


1026 


7231 


QAD, 


JMP 


QAO 




1027 


7035 




JMP 


.♦6 


/74 


1030 


7050 




JMP 


QAE 


/34 


1031 


1460 




SAE 


I 


/CR? 


1032 


0043 




43 






1033 


7026 




JMP 


QAD 


/NO 


1034 


7021 




JMP 


QACA+4 /EXAMINE NEXT CHAR 










/INITIALIZE ANSWER 8UFR 



0263 


1035 


1343 




ST H 


3 


/74 Tn ANSWERS 


02 64 


10 36 


1324 




LOH 


I 4 


/NEXT HALFWORD 


02 65 


10 37 


11 20 




ADA 


I 




02 66 


1040 


7717 




*60 






0267 


1041 


0017 




COM 






02 70 


1042 


4006 




SIC 


6 




0271 


1043 


1363 




STH 


I 3 


/0 IN AC 


0272 


1044 


0226 




XS K 


I 6 




0273 


1045 


7043 




jmp 


.»2 




02 74 


10 46 


1323 




LOH 


I 3 


/BUMP PTR TO ANSWERS 


0275 


1047 


7026 




JMP 


QAD 




02 76 












/ANSWER BUFR IS INITIATED 


0277 


10 50 


1343 


QA El 


STH 


3 




03 00 


10 51 


00 64 




SET 


I 4 


/XR4 TO PTR TO LA*^T TYPED THAR IW ANSUFR BUFR 


03 01 


1052 


0000 




0 






0302 












/• -R F-TNTER HFRF TO RFFR FS H- •> 


0 30 3 


1 0 53 


1 02 0 


Q ARFSH # 


LDA 


I 


/INITTAl Y POSITION 


0304 


10 54 


0277 


277 








0305 


10 55 


51 13 




STC 


QAH-l 




03 06 


10 56 


00 63 




SET 


I 3 


/XR3 ID PTR TO HALFWORD DIJ FS T I ON »1 


03 07 


1057 


0000 




0 






0310 


1060 


0045 




SET 


5 


/XR5 TO PTR TD LAST DISPiAYFD CHAR IN ANSWFR RIJFR 


0311 


1061 


1052 




QARFSH«1 




0312 


1062 


0041 


QAGi 


SET 


1 




0313 


1063 


0003 




3 






0314 


1064 


7270 




JMP 


QAT 




0315 


1065 


7074 




JMP 


,*7 


/F 


0316 


1066 


1323 




LOH 


I 3 


/N . RUMP PTR 


03 17 


1067 


1020 




LDA 


I 


/NIFITHFR AS*^UMF HALF SI?r 


0320 


1070 


1560 




8CL 


I 




0321 


1071 


5103 




STC 


QAM + 2 


/SET INSTR TO CLEAR FF FOR HALF SI2E 


0322 


1072 


3512 




ADD 


QAW 


/NOP IN AC 


0323 


1073 


7101 




JMP 


QAM 




03 24 


1074 


1323 




LDH 


I 3 


/BUMP PTR 


0325 


1075 


1020 




LDA 


I 




03 26 


1076 


1620 




BSE 


I 




0327 


1077 


5103 




STC 


QAM+2 


/SET INSTR TO SET FF FOR FULL SI 2E 


0330 


1100 


3513 




ADD 


QAW+1 


/ADD 9U IN AC 


0331 


1101 


5245 


QAM f 


STC 


QAP*3 




0332 


1102 


0024 




MSG 


I 4 


/EAD CONTROL REGISTER 


0333 


1103 


1620 




BSE 


I 


/THIS INSTR CHANGES. EITHER BSE & OR 8CL & 


0334 


1104 


0200 




200 






0335 


1105 


00 04 




MSC 


4 


/AC TO CONTROL REGISTER 


03 36 


11 06 


00 61 




SET 


I 1 


/XRl TO INITIAL X POSITION 


0337 


1107 


01 00 




100 






0340 


1110 


10 20 




LDA 


I 


/Y COORDINATE MULTIPLE 


0341 


1111 


7737 




^40 






0342 


1112 


1160 




ADM 


I 


/Y COORDINATE 


0343 


1113 


0000 




0 






03 44 


11 14 


13 23 


QAH » 


LDH 


I 3 




03 45 


1115 


7232 




JMP 


QAO^l 




0346 


11 16 


7301 




JMP 


QA2 


/74 BUMP PTR TO NEXT CHAR, PUT 40 IN AC 


0347 


1117 


7136 




JMP 


QA J 


/34 


03 50 


1120 


1420 




SHO 


I 


/NEI THER 


0351 


1121 


4300 




4300 




0352 


1122 


7062 




JMP 


QAG 


/CR, MOVE X AND Y COORDINATE 


0353 


1123 


7242 




JMP 


GAP 


/ISPLAY CHAR 


0354 


1124 


7114 




JMP 


OAH 


/PICK UP NEXT CHAR 


0355 


1125 


7242 




JMP 


GAP 


/TO HERE IF DISPLAYING ANSWER BUFR 


0356 


1126 


1520 




SRC 


I /SWITCH 


TD DISPLAY CURSOR* EITHER 0000 OR 7777 


0357 


1127 


0000 




0 




/IFXR4SXR5, THEN SWITCH=7777 


0360 


1130 


7516 




JMP 


OAF 




0361 












/QUESTION MODE 



0362 


1131 


1325 


QAli 


LDH 


I 5 




0363 


1132 


7232 




JMP 


QA0*1 




0364 


1133 


7114 




JMP 


QAH 


/74 


0365 


1134 


7114 




JMP 


QAH 


/34 


0366 


1135 


7125 




JMP 


QAI-4 


/NEITHER, DISPLAY IT 


0367 


1136 


7521 


QAJi 


JMP 


GETKBO 


/To HERE IF DISPLAYED BUFFER 


03 70 


1137 


04 70 




A2E 


I 




03 71 


1140 


7004 




JMP 


QAB /NOTHING TYPED , EXIT 


0372 


1141 


0062 




SET 


! 2 




03 73 


1142 


14 12 




DAY 






0374 


1143 


1402 




SHD 


2 


/LF? 


03 75 


1144 


7311 




JMP 


OAK* 4 


/YES. EXIT 


0376 


1145 


14 22 




SHD 


I 2 


/CR? 


0377 


1146 


7223 




JMP 


QAN 




0400 


1147 


0206 




XSK 


6 


/IS THERE AN ANSWER FIELD? 


0401 


1150 


7053 




JMP 


QARFSH 




0402 


1151 


1422 




SHD 


I 2 


/<? 


0403 


1152 


7175 




JMP 


QAL 




04 04 


1153 


1422 




SHD 


I 2 


/>? 


0405 


1154 


7305 




JMP 


QAK 




0406 


1155 


1422 




SHD 


I 2 


/ALT? 


0407 


1156 


7015 




JMP 


QACA /REINITIALIZE 


0410 


1157 


1422 




SHD 


1 2 


/BACK SLASH? 


0411 


1160 


7053 




JMP 


QARFSH 


/IGNORE 


0412 


1161 


1422 




SHD 


I 2 


/RU80UT? 


0413 


1162 


7175 




JMP 


QAL 


/IGNORE 


0414 


1163 


1422 




SHD 


I 2 


/TAB? 


0415 


1164 


7053 




JMP 


QA RF SH 


/I GN ORE 


04 16 


1165 


5172 




SIC 


• *5 


/ACCEPTABLE CHAR 


0417 


1166 


7231 




JMP 


QAO 


/TEST NEXT CHAR 


0420 


1167 


7263 




JMP 


QAQ 


/74 BACK PTR UP BY 1 


0421 


1170 


7263 




JMP 


QAQ 


/34 ♦ 


0422 


1171 


1020 




LOA 


I 


/OK, STORE IT 


04 23 


1172 


00 00 




0 






0424 


1173 


1344 




STH 


4 




0425 


1174 


70 53 




JMP 


QA RFSH 


/REDISPLAY 


04 26 


1175 


1304 


QAL, 


LDH 


4 


/TO HERE IF RUBBOUT OR < 


04 27 


11 76 


72 32 




JMP 


QAO+1 




0430 


1177 


7053 




JMP 


QARFSH 


/74 IGNORE 


0431 


1200 


1775 




»6002 




0432 


1201 


1302 




LDH 


2 


/TEST THE CHAR 


04 33 


12 02 


14 60 




SAE 


I 


/R UB OUT? 


0434 


1203 


0037 




37 






04 35 


1204 


7263 




JMP 


QAQ 


/NO. BACK PTR UP BY 1 


0436 


1205 


0045 




SET 


5 




0437 


1206 


0004 




4 






0440 


1207 


0043 




SET 


3 




0441 


1210 


0004 




4 






0442 


1211 


7213 




JMP 


,*2 




04 43 


12 12 


1325 




LDH 


I 5 


/BUMP PTR 


0444 


1213 


1323 




LDH 


I 3 


/GET NEXT CHAR 


0445 


1214 


7232 




JMP 


QAO+1 




0446 


1215 


0016 




NOP 




/IF 74 OR 34» REPLACE CURRENT CHAR WITH 


0447 


1216 


0011 




CLR 






0450 


1217 


1345 




STH 


5 




0451 


1220 


0450 




AHE 




/WAS IT 74 OR 34? 


0452 


1221 


7212 




JMP 




/NO, CONTINUE 


0453 


1222 


7263 




JMP 


QAQ 


/BACK PTR UP BY 1 


0454 












/TO HERE IF CR 


0455 


1223 


0206 


QANi 


XSK 


6 




0456 


12 24 


7311 




JMP 


QAK*4 


/EXIT ROUTINE IF NO ANSWER FIELD 


0457 


1225 


7231 




JMP 


QAO 




0460 


1226 


7053 




JMP 


QARFSH 


/74 MOVE PTR TO NEXT QUESTION FIELD 



0461 


1227 


7051 




JMP QA£*1 


/34 FND or BUFR. MOVP PTR TO riRm Ql!F<?Tfnw 


0462 


1230 


7225 




JHP QAN*2 




0463 












0464 


1231 


1324 


QAO# 


LOH I 4 


/S\R 


04 65 


1232 


1420 




SHO I 


/ +1 74 BEGIN FIELD 


04 66 


12 33 


74 00 




74 00 


/ +2 3 4 END BUFR 


0467 


1234 


6000 




JMP 0 


/ +3 NEITHER 74 NOR 34 


0470 


12 35 


1460 




SAE I 




0471 


1236 


0034 




34 




04 72 


12 37 


02 20 




XSK I 0 




0473 


1240 


0220 




XSK I 0 




0474 


1241 


60 00 




JMP 0 




04 75 










/S\R TO niSP 1 INir THAR !W Af 


0476 


1242 


0241 


QAP» 


ROL 1 


/MULT RY 2 FOR I WD FX TO aOORFSS OF TaRJF 


0477 


1243 


3430 




ADD QAX+4 




05 00 


12 44 


40 02 




STC 2 


/Annsrss of pmar to nisp tki ^rp 


05 01 


12 45 


3506 




inn Dili 


/TW!<^ fwc^TR rwAMf^r^ rTTwro op no Ann on 


0502 


1246 


3506 




ADD QA U 




0503 


1247 


2001 




AO D 1 


/Ann 4 Tn yRi tn t^PArr ruAO 


05 04 


1250 


40 01 




STC 1 




05 05 


1251 


2005 




ADD 5 




0506 


1252 


0017 




COM 




0507 


1253 


2004 




ADD 4 




0510 


12 54 


0450 




AHE 




0511 


1255 


0011 




clR 




0512 


1256 


5127 




ST C QA f w2 


/S W I Tr Ws 0 OR 7 77 7 


0513 


1257 


3113 




ADD QANssl 


/Y COORDINATE IN AC 


0514 


1260 


1742 




DSC 2 




0515 


12 61 


17 62 




DSC I 2 


/n TSPI AY CHAR 


0516 


1262 


60 00 




JMP 0 




0517 


1263 


1020 


QAQf 


LD A I 


/BACK UP PTR BY 1 


0520 


1264 


3777 




c4 00 0 




0521 


1265 


1140 




ADM 




0522 


1266 


0004 




4 




0523 


12 67 


70 53 




JMP QARFSH 


/RFD I SPLAY 


0524 










/ 


0525 


1270 


1321 


QATi 


LDH I 1 


/S\R 


0526 


1271 


1420 




SHD I 


/ ♦IF 


0527 


1272 


0600 




0600 


/ *2 H 


0530 


1273 


60 00 




JMP 0 


/ NEITHER 


0531 


1274 


1460 




SAE I 




0532 


1275 


0010 




10 




0533 


1276 


0220 




XSK I 0 




05 34 


12 77 


02 20 




XSK I 0 




0535 


1300 


6000 




JMP 0 




0536 










/ 


0537 


1301 


1323 


QA 2# 


tOH I 3 




0540 


1302 


1020 




LOA I 




0541 


1303 


0040 




40 




0542 


1304 


7125 




JMP OA 4 




0543 










/TO HERE IF > 


05 44 


1305 


1324 


OAK, 


LDH I 4 




0545 


1306 


04 70 




ME I 


/IS CURRENT CHAR BLANK? 


0546 


13 07 


72 63 




JMP QAQ 


/YES. IGNORE 


05 47 


1310 


7424 




JMP OAX 


/MOVE DOT FORWARD 


0550 










/TO HERE TO EXIT WITH SKIP 


0551 


1311 


1020 




LOA I 




0552 


1312 


0001 




1 




0553 


1313 


1140 




ADM 




0554 


1314 


1004 




QAB 




0555 


1315 


7004 




JMP QAB 




05 56 










/CHARACTER PATTERNS 


0557 


1316 


0101 


QAV, 


0101 


/KBD 0» ILLEGAL, USED AS MARKER 



0 



05 60 


1317 


0101 


01 01 




> O X 


1320 


4477 


4477 


/I !A 


0362 


1321 


7744 


7744 




W O vJ 


1322 


5177 


5177 


/2 !B 


03 64 


13 23 


26 51 


26 51 




Itf-' o 


13 24 


4136 


4136 


/3 tC 


10? oo 


13 21? 


22 41 


22 41 




tP^O / 


X o c o 


4177 


4177 


/4 t D 


OIR 701 


IOC/ 


36 41 


3641 




71 

07 / X 


1 "^Cl 


45 77 


4577 




DIR 79 


1 oox 


41 

•t X •» V 


4145 




as 7*^ 




44 77 


44 77 


/6 :r 


74 


X o o O 


40 44 


4044 




soy / 3 


13 34 


4136 


4136 


/7 JG 


05 76 


13 35 


26 45 


26 45 




Oi*5 77 


13 36 


10 77 


1077 


/1 0 J H 


0600 


1337 


7710 


7710 




06 01 


13 40 


77 41 


77 41 


/lis I 


0602 


13 41 


00 41 


00 41 




0603 


1342 


4142 


4142 


/12 IJ 


06 04 


1343 


40 76 


40 76 




0605 


1344 


1077 


1077 


/13!K 


0606 


1345 


4324 


4324 




0607 


1346 


0177 


0177 


/14IL 


06X0 


1347 


0301 


0301 




0611 


1350 


30 77 


30 77 


/15S M 


0612 


1351 


7730 


7730 




0613 


1352 


30 77 


3077 


/16: N 


0614 


1353 


77 06 


77 06 




0615 


1354 


4177 


4177 


/17J 0 


0616 


1355 


7741 


7741 




06 17 


1356 


4477 


4477 


/20: P 


0620 


1357 


3044 


3044 




06 21 


1360 


4276 


4276 


/21J Q 


0622 


1361 


0376 


0376 




0623 


1362 


4477 


4477 


/22: R 


0624 


13 63 


3146 


3146 




06 25 


1364 


5121 


5121 


/23J S 


0626 


1365 


4651 


4651 




06 27 


1366 


40 40 


40 40 


/24t T 


0630 


1367 


4077 


4077 




0631 


1370 


0177 


0177 


/25 JU 


0632 


1371 


7701 


7701 






1372 


0176 


01 76 


/261V 


0634 


1373 


7402 


7402 




0635 


1374 


0677 


0677 


/27I W 


0636 


13 75 


7701 


7701 




0637 


1376 


1463 


1463 


/30: X 


06 40 


1377 


6314 


6314 




0641 


1400 


0770 


0770 


/31 : Y 


0642 


1401 


7007 


7007 




0643 


1402 


4543 


4543 


/32: Z 


0644 


1403 


6151 


6151 




0645 


1404 


4177 


4177 


/33j/ 


0646 


1405 


0000 


00 00 




0647 








/34IBA 


0650 


1406 


0000 


0 


/NOT U 


0651 


1407 


0000 


0 


/NOT U 


0652 


1410 


0000 


0000 


/35l] 


0653 


1411 


7741 


7741 




0654 








/COOES 


0655 


1412 


4543 QAY, 


4543 


/LF,CR 


0656 


1413 


7476 


7476 


/<!> 



0657 


1414 


3634 




3634 


/ALT, BACKSLASH 


06 60 


14 15 


3747 




37 47 


/RUB OUT, TAB 


0661 


1416 


0000 




0000 


/40J SPACE 


0662 


1417 


0000 




0000 




0663 


1420 


7500 




7500 


/4i:x» 


0664 


1421 


0000 




0000 




06 65 


1422 


7000 




70 00 


/42!" 


06 66 


1423 


00 70 




00 70 




mei 










/CODES 43: .441, 45:LF NOT 


0670 


1424 


7232 


QAX, 


JMP QAO^l 




0671 


1425 


7263 




JMP QAQ 




0672 


1426 


7263 




JMP QAQ 




06 73 


1427 


7053 




JMP QARFSH 




06 74 


14 30 


13 16 




OA V 




06 75 


1431 


0000 




0 


/NOT USED 


0676 


1432 


5166 




5166 


/46; & 


0677 


1433 


0526 




0526 




0700 










/CODE 47;TAB NOT DISPLAYED 


0701 


14 34 


0000 




0 


/NOT USED 


0702 


1435 


0000 




0 


/NOT USED 


07 03 


14 36 


36 00 




36 00 


/50; ( 


07 04 


1437 


0041 




00 41 




07 05 


1440 


4100 




4100 


/51I ) 


0706 


1441 


0036 




0036 




07 07 


1442 


2050 




2050 


/52J* 


0710 


1443 


0050 




0050 




0711 


1444 


0404 




0404 


/53I + 


0712 


1445 


0437 




0437 




0713 


1446 


0500 




0500 


/54J , 


0714 


1447 


0006 




0006 




0715 


1450 


04 04 




0404 


/55:- 


0716 


1451 


0404 




0404 




0717 


1452 


0001 




0001 


/56S . 


0720 


1453 


0000 




0000 




0721 


1454 


0601 




0601 


/57l\ 


0722 


1455 


4030 




4030 




0723 


1456 


4536 




4536 /60:0 




0724 


1457 


3651 




3651 




0725 


1460 


2101 




2101 


/61 11 


0726 


1461 


0177 




0177 




0727 


1462 


4523 




4523 


/62J 2 


0730 


1463 


2151 




2151 




0731 


1464 


4122 




4122 


/63t3 


0732 


1465 


2651 




2651 




0733 


1466 


2414 




2414 


/64{ 4 


0734 


1467 


0477 




0477 




07 35 


1470 


5172 




5172 


/65i5 


0736 


1471 


0651 




0651 




07 37 


1472 


1506 




15 06 


/66S 6 


0740 


1473 


4225 




4225 




0741 


1474 


4443 




4443 


/67J7 


0742 


1475 


6050 




6050 




07 43 


1476 


5126 




5126 /70:8 




0744 


1477 


2651 




2651 




0745 


1500 


5122 




5122 


/71S9 


0746 


1501 


3651 




3651 




07 47 


15 02 


22 00 




22 00 


/72t : 


0750 


1503 


0000 




0000 




0751 


1504 


4601 




4601 


/73: ; 


0752 


1505 


0000 




0000 




0753 










/CODE 74KN0T DISPLAYED 


0754 


1506 


0002 


QAU, 


2 


/CONST ANT 


0755 


1507 


0000 




0 /NOT 


JSED 




4 



0756 


1510 


1212 




1212 


/75! = 


07 57 


1511 


1212 




1212 




07 60 










/CODE 76 :> NOT DISPLAYED 


0761 


15 12 


0016 


QAWi 


NOP 




0762 


15 13 


3506 




ADD QAU 




07 63 


1514 


4020 




40 20 


/77I? 


HJ f 0*t 


15 15 


20 55 




20 55 




0765 






/ 






07 66 


15 16 


1760 


QAF, 


OSC 1 




(31 7 A 7 




OKI fOV 




6000 




017 70! 




71 ^1 




JMP QAl 




01771 






/ 






017 79 










/END Q+A 


0177 7 






/ 






017 74 






/ 






Oil ICi 

0 / /!> 






/ 






%} f / O 






/ 






Oil 11 






/KEYBOARD INPUT ROUT INE 


1000 






/ 






10 01 






QAKRB= 


60 36 /POP- 


'8 lOT KBD 


1002 






QATSF= 


6041 /TSF 




1003 






QA TLS = 


6046 /TLS 




1004 






/ 






1005 


1521 


1000 


GETKBD 


f LOA 




1006 


1522 


0000 




0 




10 07 


15 23 


56 47 




STC QAEXIT+6 


/SAVE RETURN 


1010 


1524 


20 01 




ADO 1 


/SAVE XRS 1 AND 2 


1011 


1525 


5644 




STC QAEXIT*3 






1526 


2002 




ADD 2 






1527 


5646 




STC QAEXIT*5 




1014 


1530 


56 42 




STC QAEXlT+1 




10 15 


1531 


0415 




KST /WAS 


SOMETHING TYPED? 


1016 


1532 


6000 




JMP 0 


/NOI EXIT 


1017 


15 33 


05 00 




108 




1020 


1534 


6036 




QAKR8 /GET 


TTY CHAR, CLEAR FLAG 


1021 


1535 


1060 




STA I 


/SAVE IT 


1022 


1536 


0000 


QATY, 


0 




10 23 


15 37 


1120 




ADA I 




1024 


1540 


75 40 




.237 


/BETWEEN 200 AND 237? 


10 25 


1541 


0451 




APO 




1542 


7604 




JMP OACNTR 


/CONTROL CHAR. CHECK FOR 


1027 






/ 






10 30 


1543 


0061 




SET I 1 


/NO 


1031 


1544 


1660 




OACHAR-l 




10 32 


1545 


0062 




SET I 2 




1033 


1546 


7770 




-7 




10 34 


1547 


1000 




LOA 




1035 


1550 


1536 




QATY 




1036 


1551 


1461 




SAE I 1 




10 37 


1552 


7554 




JMP .*2 


/ILLEGAL CHAR. OONT ECHO 


1 0 40 


15 53 


7641 




JMP QAEXIT 


1041 


1554 


0222 




XSK I 2 /CHECKED THEM ALL? 


1042 


1555 


7551 




JMP ♦•4 




1043 






/ 






1044 


1556 


1120 




ADA I 




1045 


1557 


7440 




^337 


/BETWEEN 240 AND 337? 


10 46 


15 60 


04 51 




APO 


1047 


1561 


7575 




JMP QALEGL 


/YES, LEGAL CHAR 


1050 






/ 




/NO, CHECK FURTHER. 


1051 


1562 


1461 




SAE I 1 


1052 


1563 


7572 




JMP .+7 




1053 


1564 


1020 




LOA I 


/RUB OUT 


1054 


1565 


0334 




334 





m 



i055 


1566 


7650 




JMP QATPE 


/ECHO BACKSLASH 


1056 


1567 


1020 




LOA I 




1057 


1570 


0037 




37 




10 60 


1571 


7643 




JMP QAEXIT+2 


/LEGAL EXIT 


1061 












1062 


1572 


1461 




SAE I 1 




1063 


1573 


7641 




JMP OAEXIT 


/ILLEGAL 


1064 










/ALT 


1065 


1574 


7643 




JMP QAEXIT+2 


/EXIT, DONT ECHO 


1066 






/ 






10 67 


1575 


1000 


QALEGL* 


LOA 




1070 


1576 


1536 




OA TV 




1071 


1577 


7650 




JMP QATPE 


/ECHO CHAR 


1072 


1600 


3536 




ADD QATY 




1073 


1601 


1560 




BCL I 


/STRIP IT TO 6-BIT 


1074 


1602 


7700 




7700 




1075 


1603 


7643 




JMP QAEXIT*2 




1076 






/TO HERE IF CONTROL CHAR 


1077 


1604 


1460 


QACNTR , 


SAE I 




1100 


1605 


7755 




7755 




1101 


1606 


7621 




JMP QACKLF 




1102 


1607 


1020 




LOA I 


/CR 


1103 


1610 


0043 




43 




1104 


1611 


5642 




STC QAEXIT+l 




1105 


1612 


1020 




LD A I 




1106 


1613 


0215 




215 




1107 


1614 


7650 




JMP QATPE 




1110 


1615 


1020 




LOA I 




1111 


1616 


0212 




212 




1112 


1617 


7650 




JMP QATPE 




1113 


1620 


76 41 




JMP OAEXIT 




1114 






/ 






1115 


1621 


1460 


QACKLF , 


SAE 1 




1116 


1622 


7752 




7752 




1117 


1623 


7627 




JMP •♦4 




1120 


1624 


10 20 




LOA I 


/LF 


1121 


1625 


0045 




45 




1122 


16 26 


7611 




JMP QACNTR*5 




1123 


1627 


1460 




SAE I 


/CNTRL R SEEN ? 


1124 


1630 


7762 




7762 




1125 


1631 


0456 




SKP 




1126 


16 32 


76 72 




JMP QAA0 




1127 


16 33 


1460 




SAE I 




1130 


1634 


7751 




7751 




1131 


1635 


7641 




JMP QAEXIT 


/ILLEGAL 


1132 


1636 


1020 




LDA I 




1133 


1637 


0047 




47 




1134 


1640 


76 43 




JMP OAEXIT+2 


/EXIT, DONT ECHO , 


1135 






/ 






1136 


1641 


1020 


QAEXIT, 


LDA I /GET 6 


•BIT ASCII 


1137 


1642 


0000 




0 




1140 


16 43 


00 61 




SET I 1 


/RESTORE XRS 


1141 


1644 


0000 




0 




1142 


1645 


0062 




SET I 2 




1143 


1646 


0000 




0 




1144 


16 47 


60 00 




JMP 


/EXIR S\R GETKBD 


1145 






/S\R TO 


PRINT C(AC) 




1146 


16 50 


05 00 


QATPE, 


10 B 




1147 


1651 


6046 




QATLS /PDP-8 


lOT TLS 


1150 


1652 


10 00 




LDA 


1151 


1653 


0000 




0 




11 52 


16 54 


56 60 




STC . + 4 /S AVE 


RE TU RN 


1153 


1655 


05 00 




lOB 





* 



1154 


1656 


6041 




QATSF /WAIT FOR FLAG 


1155 


16 57 


7655 




JMP ,^2 


1156 


1660 


60 00 




JMP /EXIT 


1157 






/ 




1160 


1661 


0243 


QACHAR* 


243 /HASH 


1161 


16 62 


02 44 


24 4 


/DOLLAR SIGN 


1162 


1663 


0245 




245 /PER CENT 


1163 


1664 


0247 




247 /APOSTROPHE 


1164 


1665 


0300 




300 /AT SIGN 


1165 


16 66 


03 36 




33 6 /UP ARROW 


1166 


16 67 


03 37 




337 /BACK ARROW 


1167 


16 70 


00 40 




40 /RUB OUT 


1170 


1671 


0036 




36 /ALT 


1171 






/END OF 


S\R GETKBD 


1172 


1672 


0604 


QAA0, 


L I F 4 


1173 


16 73 


74 24 




JMP QAAl /CNTRL 


1174 


1674 


0623 






1174 


1675 


2522 






1174 


1676 


0540 






1174 


1677 


7740 






1174 


1700 


7461 






1174 


1701 


3400 






1174 






DSPNEW. 


TEXT QFSURE ? <1\Q 



R EXIT 



NO ERRORS 



AC VA L2 


4t0O 0 


aosblk 


0 51 5 


ADS8MP 


0t>03 


AD SS P 


0 4 6 7 


AOSSPA 


0617 


ADSSPX 


0 62 6 


ADSSPl 




kQSSP2 


0557 


AnSSP3 


05 7 2 


ADSSP4 


0567 


A0SSP5 


0565 


ADSTMP 


0465 


AO VRT 


4 654 


AD VI 6 


4 63 5 


ADV16A 


4644 


ADV16B 


4 651 


ANSWER 


2022 


BASL IN 


0 02 6 


bmult 


5310 


BMULTR 


5357 


BMUL tS 


5 355 


BMUL Tl 


5 307 


BMUL T2 


53 2 0 


BOUND 


5 71 6 










BUFHI 


5774 


BUFLO 


5775 


BUFPTR 


5704 


8UMPR 


0045 


BUMPRl 


0046 


8XRET 


4041 


Bl 


1423 


82 


1426 


B3 


1432 


B4 INTB 


1056 


B6CALL 


4020 



B6rRB0 0415? 
CDF0 5601 
CHBANK 5373 
CHKH I 5 67 3 
CKTP 0116 
CKTPB 0127 
CKTPIN 0107 
CLLORA 4075 
CLRCRV 1124 
CIRMOR 1133 
CURT 1136 
COMMIS 0036 
COMPR 4601 
COMPRT 4612 
COMPRl 4604 
C0HPR2 4613 
CONT 5600 
CORVAL 0023 
COUNT 0 02 5 
CR 4 04 3 

CS AM 5552 
CURCNT 5773 
CUROIS 5751 
CURLOP 5763 
CURRTN 5650 
CURSAM 0101 
CI 1436 
DADO 5704 
DBLHl 5741 
D8LL0 5747 
OECMt 4430 
OECMIA 4446 
DECHLB 4455 
OECMLC 446 6 
DECMRM 4414 
OECMRT 4463 
DELSP 0415 
DELSPA 0425 
DELSPC 0432 
OELSRT 0424 
DIAL77 0040 
DORAGO 1106 
DORART 1104 
DQRGOl 1137 
00RG03 1167 
D0RG04 1206 
D0RG05 1222 
00RG06 1230 
D0RG07 1233 
00RG08 1221 
DOSUB 0053 
DREND 4071 
DRSTRT 4066 
DSCALL 2020 
OSCLOC 5445 
OSCUOP 5476 
DSCWD 5462 
DSPERA 2657 
DSPERB 2656 
DSPNEW 3674 
DSPl 2026 
DSPIPI 2167 
DSP1P2 2201 



DSP1P3 2246 
0SP1P4 2275 
0SP2 2053 
0SP2P1 2336 
0SP2P2 2431 
DSP3 2102 
DSP3P1 2444 
0SP3P2 2515 
DSP4P1 2560 
0SP4P3 2642 
ENOHI 5777 
ENOLO 5776 
ERAS! 0106 
ERNNU 0731 
ERNNX 0726 
ERRCXX 2 66 3 
ERRNW0 1501 
ERRNWl 1504 
ERRNW9 1514 
ERRl 1447 
ERR2 1455 
ERR2A 1462 
ERR3 1463 
ERTABl 1426 
ER0 0242 
ER0A 024 7 
ER08 0255 
ER0C 0172 
ERl 0164 
ERIA 0173 
ERIB 0226 
ERIC 0240 
ER2 0261 
ER2A 0263 
ER2RTN 0304 
ER2SRT 0350 
ER2S1 0307 
ER2S2 0317 
ER2S3 0330 
El 150 3 

FLAGWO 0051 
rLO20 001 7 
PNOAO 0516 
FNOADl 0525 
FNDAD2 0527 
rNDAD3 0544 
FNDRT 5171 
FN0SP8 5155 
FNDSPC 5201 
FRESAM 0105 
rSTSlK 0103 
FTEMP 1263 
Fl 1264 
F2 1351 
F2ZXQ 1331 
F3 1342 
F4 1353 
F5 135 4 

GETANS 5237 
GETKBO 3 521 
GOPRT 4137 
GTANSl 5251 
Gl 1356 



HELPPS 0747 
HELPRT 0763 
HELPl 0753 
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HOW TO OBTAIN SOFTWARE INFORMATION 



Announcements for new and revised software, as well as programming 
notes, software problems, and documentation corrections are published 
by Software Information Service in the following newsletters. 

Digital Software News for the PDP-8 & PDP-12 

Digital Software News for the PDP-ll 

Digital So f tware News for the PDP-9/15 Family 

These ne wsl etters contain in format ion applicable to software available 
from Digital's Program Library . Articles in Digital Software News up- 
date the cumulative Software Performance Summary which is contained 
in each basic kit of system software for new computers. To assure that 
the monthly Digital Software News is sent to the appropriate software 
contact at your installation, please check with the Software Special- 
ist or Sales Engineer at your nearest Digital office. 

Questions or problems concerning DEC software should be reported to 
the So ftware Specialist, In cases where no Software Spec ia I ist is avail- 
able, please send a Software Performance Report form with details of 
the problem to: 

So ftware I nformat ion Service 
Digital Equipment Corporation 
146 Main Street, Bidg . 3-5 
Maynard, Massachusetts 01754 

These forms which are available without charge from the Program 
Library, should be f u I I y filled out and accompan ied by Teletype output 
as well as I istings or tapes of the user program to foe i I ita te a complete 
investigation , An answer will be sent to the ind ividual and appropriate 
topics of general interest will be printed in the newsletter . 

New and revised so ftware and manuals. So ftware Performance Report 
forms, and software price lists are available from the Program Library. 
When ordering, include the document number and a brief description of 
the program or manual requested. Revisions of programs and documents 
will be announced in the newsletters. Direct all inquiries and requests 
to: 

Program Li brary 
Digital Equipment Corporation 
146 Main Street, Bidg. 1-2 
Moynard, Massachusetts 01754 

Digital Equipment Computer Users Society (D ECU S) maintains a user 
library and publishes a catalog of programs as well as the DECUSCOPE 
magazine for its members and non-members who request it. For further 
informotlon please write to: 

DECUS 

Digital Equipment Corporation 
146 Main Street, Bidg. 3-5 
Maynord, Massachusetts 01754 



LIFE 

DEC-12-UW8B-D 



READER'S COMMENTS 

Digital Equipment Corporation maintains a continuous effort to improve the quality and usefulness 
of its publications. To do this effectively we need user feedback — your critical evaluation of 
this manual . 

Please comment on this manual's completeness, accuracy, organization, usability, and read- 
ability. 



Did you find errors in this manual? If so, specify by page. 



How can this manual be improved? 



Other comments? 



Please state your position. Date: 

Name: ^ . Organization: 

Strfeet:__ Department: 



City: State: Zip or Country- 



Do Not Tear - Fold Here and Staple 



FIRST CLASS 
PERMIT NO. 33 
MAYNARD, MASS. 



BUSINESS REPLY MAIL 

NO POSTAGE STAMP NECESSARY IF MAILED IN THE UNITED STATES 



Postage will be paid by: 




Digital Equipment Corporation 
Software Information Services 
146 Main Street, Bldg. 3-5 
Maynard, Massachusetts 01754 



digitat Equiprhent Corporation 
Mayharcij Massachusetts 



printed in U.S.A. 



